diff --git a/basis/io/directories/search/windows/windows.factor b/basis/io/directories/search/windows/windows.factor
index cda9403417..cbd86aed07 100644
--- a/basis/io/directories/search/windows/windows.factor
+++ b/basis/io/directories/search/windows/windows.factor
@@ -1,11 +1,16 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays fry io.pathnames kernel sequences windows.shell32
-io.directories.search ;
+USING: arrays combinators.smart environment fry
+io.directories.search io.pathnames kernel sequences
+sets windows.shell32 ;
 IN: io.directories.search.windows
 
 : program-files-directories ( -- array )
-    program-files program-files-x86 2array harvest ; inline
+    [
+        program-files
+        program-files-x86
+        "ProgramW6432" os-env
+    ] output>array harvest members ; inline
 
 : find-in-program-files ( base-directory quot -- path )
     t swap [