sort-by-slots => sort-by

diff --git a/basis/tools/files/files.factor b/basis/tools/files/files.factor
index 8d882099def92089f74227cfceeb87411f39b382..146a119a631ce0f745336c17d58e4f64662b4a08 100755 (executable)
--- a/basis/tools/files/files.factor
+++ b/basis/tools/files/files.factor
@@ -75,7 +75,7 @@ M: object file-spec>string ( file-listing spec -- string )
 : list-files-slow ( listing-tool -- array )
     [ path>> ] [ sort>> ] [ specs>> ] tri '[
             [ dup name>> file-info file-listing boa ] map
-            _ [ sort-by-slots ] when*
+            _ [ sort-by ] when*
             [ _ [ file-spec>string ] with map ] map
     ] with-directory-entries ; inline