X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=ab9ebf72628f606d8827333338acf6377d277f70;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=25c31c20aeb4602ad49810080ae429af1bcdb0e8;hpb=338732358d49ab202fe55c3581294597d63aec6b;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 25c31c2..ab9ebf7 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -320,7 +320,8 @@
 	  (push new-fd *close-on-error*)
 	  (copy-descriptor-to-stream new-fd pty cookie)))
       (values name
-	      (sb-sys:make-fd-stream master :input t :output t)))))
+	      (sb-sys:make-fd-stream master :input t :output t 
+				     :dual-channel-p t)))))
 
 (defmacro round-bytes-to-words (n)
   `(logand (the fixnum (+ (the fixnum ,n) 3)) (lognot 3)))