diff --git a/basis/io/files/listing/listing.factor b/basis/io/files/listing/listing.factor
index a740b2b7be..f88fcec3a1 100755
--- a/basis/io/files/listing/listing.factor
+++ b/basis/io/files/listing/listing.factor
@@ -5,6 +5,8 @@ math.parser sequences system vocabs.loader calendar ;
 
 IN: io.files.listing
 
+<PRIVATE
+
 : ls-time ( timestamp -- string )
     [ hour>> ] [ minute>> ] bi
     [ number>string 2 CHAR: 0 pad-left ] bi@ ":" swap 3append ;
@@ -26,6 +28,8 @@ IN: io.files.listing
 
 HOOK: (directory.) os ( path -- lines )
 
+PRIVATE>
+
 : directory. ( path -- )
     [ (directory.) ] with-directory-files [ print ] each ;
 
diff --git a/basis/io/files/listing/unix/unix.factor b/basis/io/files/listing/unix/unix.factor
index f024b1238e..77e56f50cf 100755
--- a/basis/io/files/listing/unix/unix.factor
+++ b/basis/io/files/listing/unix/unix.factor
@@ -5,6 +5,8 @@ io.unix.files io.files.listing generalizations strings
 arrays sequences io.files math.parser unix.groups unix.users ;
 IN: io.files.listing.unix
 
+<PRIVATE
+
 : unix-execute>string ( str bools -- str' )
     swap {
         { { t t } [ >lower ] }
@@ -41,3 +43,5 @@ M: unix (directory.) ( path -- lines )
             } cleave 4 narray swap suffix " " join
         ] map
     ] with-group-cache ] with-user-cache ;
+
+PRIVATE>
diff --git a/basis/io/files/listing/windows/windows.factor b/basis/io/files/listing/windows/windows.factor
index 53481fc7f8..7c108780dc 100755
--- a/basis/io/files/listing/windows/windows.factor
+++ b/basis/io/files/listing/windows/windows.factor
@@ -5,6 +5,8 @@ kernel math.parser sequences splitting system io.files.listing
 generalizations ;
 IN: io.files.listing.windows
 
+<PRIVATE
+
 : directory-or-size ( file-info -- str )
     dup directory? [
         drop "<DIR>" 20 CHAR: \s pad-right
@@ -19,3 +21,5 @@ M: windows (directory.) ( entries -- lines )
             [ directory-or-size ]
         } cleave 2 narray swap suffix " " join
     ] map ;
+
+PRIVATE>