diff --git a/basis/io/standard-paths/windows/windows.factor b/basis/io/standard-paths/windows/windows.factor
index 799f6d816c..29547d43f2 100644
--- a/basis/io/standard-paths/windows/windows.factor
+++ b/basis/io/standard-paths/windows/windows.factor
@@ -6,6 +6,7 @@ system unicode.case ;
 IN: io.standard-paths.windows
 
 M: windows find-in-applications
+    >lower
     '[ [ >lower _ tail? ] find-in-program-files ] map-find drop ;
 
 M: windows find-in-path*