X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=os.lisp;fp=os.lisp;h=589eac4b74e89a2ef798ce01030315a3770a87b9;hp=b31d4bad074778e58d27548677d4457511e2a281;hb=2f65fd6d93691f3943182138efd2013c3fdb67c7;hpb=27a9a1fba69e1f861a0dbbb1ad321d2e60ccdb8f

diff --git a/os.lisp b/os.lisp
index b31d4ba..589eac4 100644
--- a/os.lisp
+++ b/os.lisp
@@ -80,11 +80,8 @@ returns (VALUES output-string pid)"
     
     
     #+allegro
-    (multiple-value-bind (output dummy pid)
-	(excl:run-shell-command command :input nil :output :stream
-				:wait nil)
-      (declare (ignore dummy))
-      (values output pid))
+    (excl:run-shell-command command :input nil :output nil
+			    :wait t)
 
     #+lispworks
     (system:call-system-showing-output