diff --git a/basis/io/directories/search/windows/windows.factor b/basis/io/directories/search/windows/windows.factor
index 91a4afd20d..755710befd 100644
--- a/basis/io/directories/search/windows/windows.factor
+++ b/basis/io/directories/search/windows/windows.factor
@@ -5,7 +5,7 @@ io.directories.search ;
 IN: io.directories.search.windows
 
 : program-files-directories ( -- array )
-    program-files program-files-x86 2array ; inline
+    program-files program-files-x86 2array harvest ; inline
 
 : find-in-program-files ( base-directory bfs? quot -- path )
     [