diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 93d4d0146c..0c947e5bc6 100755
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -6,11 +6,11 @@ locals math sequences sorting system unicode.case vocabs.loader ;
 IN: io.directories.search
 
 : qualified-directory-entries ( path -- seq )
-    normalize-path
+    (normalize-path)
     dup directory-entries [ [ append-path ] change-name ] with map ;
 
 : qualified-directory-files ( path -- seq )
-    normalize-path
+    (normalize-path)
     dup directory-files [ append-path ] with map ;
 
 : with-qualified-directory-files ( path quot -- )