diff --git a/basis/io/standard-paths/windows/windows.factor b/basis/io/standard-paths/windows/windows.factor
index fcd912687d..f3b1edab92 100644
--- a/basis/io/standard-paths/windows/windows.factor
+++ b/basis/io/standard-paths/windows/windows.factor
@@ -15,7 +15,7 @@ IN: io.standard-paths.windows
 : find-in-program-files ( base-directory quot -- path )
     t swap [
         [ program-files-directories ] dip '[ _ append-path ] map
-    ] 2dip find-in-directories ; inline
+    ] 2dip find-file-in-directories ; inline
 
 M: windows find-in-applications
     >lower