From 6a823c4a698c8b0a8bf91d5dfd8c0d7cf70796f6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 4 Apr 2008 22:40:37 -0500
Subject: [PATCH] Windows launcher fix

---
 extra/io/windows/launcher/launcher.factor    | 3 ++-
 extra/io/windows/nt/launcher/launcher.factor | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/extra/io/windows/launcher/launcher.factor b/extra/io/windows/launcher/launcher.factor
index 07ce6c308a..6185159ddc 100755
--- a/extra/io/windows/launcher/launcher.factor
+++ b/extra/io/windows/launcher/launcher.factor
@@ -116,9 +116,10 @@ M: windows current-process-handle ( -- handle )
 
 M: windows run-process* ( process -- handle )
     [
+        current-directory get (normalize-path) cd
+
         dup make-CreateProcess-args
         tuck fill-redirection
-        current-directory get (normalize-path) cd
         dup call-CreateProcess
         lpProcessInformation>>
     ] with-destructors ;
diff --git a/extra/io/windows/nt/launcher/launcher.factor b/extra/io/windows/nt/launcher/launcher.factor
index 4bbf7c8e32..3aa2a9994b 100755
--- a/extra/io/windows/nt/launcher/launcher.factor
+++ b/extra/io/windows/nt/launcher/launcher.factor
@@ -120,6 +120,8 @@ M: winnt fill-redirection ( process args -- )
 
 M: winnt (process-stream)
     [
+        current-directory get (normalize-path) cd
+
         dup make-CreateProcess-args
 
         fill-stdout-pipe