diff --git a/basis/tools/files/files-tests.factor b/basis/tools/files/files-tests.factor
index 4dc4ef23f0..6cbc7d192c 100644
--- a/basis/tools/files/files-tests.factor
+++ b/basis/tools/files/files-tests.factor
@@ -7,5 +7,4 @@ IN: tools.files.tests
 
 [ ] [ "" directory. ] unit-test
 
-[ ]
-[ { device-name free-space used-space total-space percent-used } file-systems. ] unit-test
+[ ] [ file-systems. ] unit-test
diff --git a/basis/tools/files/files.factor b/basis/tools/files/files.factor
index a8ce9c9554..ab9ce01c3e 100755
--- a/basis/tools/files/files.factor
+++ b/basis/tools/files/files.factor
@@ -58,10 +58,14 @@ percent-used percent-free ;
 : file-systems-info ( spec -- seq )
     file-systems swap '[ _ [ file-system-spec ] with map ] map ;
 
-: file-systems. ( spec -- )
+: print-file-systems ( spec -- )
     [ file-systems-info ]
     [ [ unparse ] map ] bi prefix simple-table. ;
 
+: file-systems. ( -- )
+    { device-name free-space used-space total-space percent-used }
+    print-file-systems ;
+
 {
     { [ os unix? ] [ "tools.files.unix" ] }
     { [ os windows? ] [ "tools.files.windows" ] }