X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=os.lisp;h=589eac4b74e89a2ef798ce01030315a3770a87b9;hp=b31d4bad074778e58d27548677d4457511e2a281;hb=526eef1b59e071cbb4ecd35f73a14c1a3f8e32b6;hpb=035b66e6fe51559e2db70691ddcae4ab641a4873

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