From 09f0edfb2fab8674009b2dda277256197d3673a5 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 18 Nov 2014 14:03:06 -0800
Subject: [PATCH] io.launcher.windows: Don't cd to directory when calling
 run-process. Fixes

---
 basis/io/launcher/windows/windows.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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>>