Index: /trunk/ccl/level-1/l1-sockets.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sockets.lisp	(revision 4916)
+++ /trunk/ccl/level-1/l1-sockets.lisp	(revision 4917)
@@ -322,4 +322,5 @@
 (defmethod select-stream-class ((class tcp-stream) in-p out-p char-p)
   (declare (ignore char-p)) ; TODO: is there any real reason to care about this?
+  ;; Yes, in general.  There is.
   (assert (and in-p out-p) () "Non-bidirectional tcp stream?")
   'tcp-stream)
@@ -677,5 +678,6 @@
 		    :direction :io
 		    :element-type element-type
-                    :sharing sharing)))
+                    :sharing sharing
+                    :character-p t)))
 
 (defun make-file-socket-stream (fd &key format eol (class 'file-socket-stream)  sharing &allow-other-keys)
@@ -690,5 +692,6 @@
 		    :direction :io
 		    :element-type element-type
-                    :sharing sharing)))
+                    :sharing sharing
+                    :character-p t)))
 
 (defun make-tcp-listener-socket (fd &rest keys &key backlog &allow-other-keys)