--- swank-cmucl.lisp.~1.156.~	2005-10-09 21:13:03.000000000 +0200
+++ swank-cmucl.lisp	2005-11-11 11:47:59.000000000 +0100
@@ -117,7 +117,10 @@
 
 (defun make-socket-io-stream (fd)
   "Create a new input/output fd-stream for FD."
-  (sys:make-fd-stream fd :input t :output t :element-type 'base-char))
+  (sys:make-fd-stream fd
+                      :input t :output t
+                      :element-type 'base-char
+                      :buffering :none))
 
 ;;;;; Signal-driven I/O