Working on webapps.mason

[factor.git] / basis / io / launcher / launcher.factor

diff --git a/basis/io/launcher/launcher.factor b/basis/io/launcher/launcher.factor
index 745149997868e531f19462f648ed74d1cfb3f3bc..f4978672d97fb9c2ebca4f58082b7bf718c81041 100755 (executable)
--- a/basis/io/launcher/launcher.factor
+++ b/basis/io/launcher/launcher.factor
@@ -264,7 +264,7 @@ M: output-process-error error.
 : try-output-process ( command -- )
     >process
     +stdout+ >>stderr
-    +closed+ >>stdin
+    [ +closed+ or ] change-stdin
     utf8 <process-reader*>
     [ stream-contents ] [ dup wait-for-process ] bi*
     0 = [ 2drop ] [ output-process-error ] if ;