diff --git a/basis/io/monitors/recursive/recursive.factor b/basis/io/monitors/recursive/recursive.factor
index cede5d52e7..5dcb02bf93 100755
--- a/basis/io/monitors/recursive/recursive.factor
+++ b/basis/io/monitors/recursive/recursive.factor
@@ -20,10 +20,9 @@ DEFER: add-child-monitor
 
 : add-child-monitors ( path -- )
     ! We yield since this directory scan might take a while.
-    dup [
-        [ append-path ] with map
+    [
         [ add-child-monitor ] each yield
-    ] with-directory-files ;
+    ] with-qualified-directory-files ;
 
 : add-child-monitor ( path -- )
     notify? [ dup { +add-file+ } monitor tget queue-change ] when