diff --git a/basis/io/launcher/windows/windows.factor b/basis/io/launcher/windows/windows.factor
index 012de73be7..1b3c276fcc 100755
--- a/basis/io/launcher/windows/windows.factor
+++ b/basis/io/launcher/windows/windows.factor
@@ -274,9 +274,8 @@ M: windows wait-for-processes ( -- ? )
 M: windows run-process* ( process -- handle )
     [
         [
-            current-directory get absolute-path cd
-    
             dup make-CreateProcess-args
+            current-directory get absolute-path >>lpCurrentDirectory
             [ fill-redirection ] keep
             dup call-CreateProcess
             lpProcessInformation>>