Index: /branches/working-0711/ccl/level-1/l1-streams.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 9740)
+++ /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 9741)
@@ -3539,5 +3539,5 @@
        ((= i end) end)
     (declare (fixnum i))
-    (let* ((b (read-byte stream)))
+    (let* ((b (read-byte stream nil :eof)))
       (if (eq b :eof)
 	(return i)
@@ -3710,5 +3710,5 @@
        ((= i count) count)
     (declare (fixnum i))
-    (let* ((b (read-byte stream)))
+    (let* ((b (read-byte stream nil :eof)))
       (if (eq b :eof)
 	(return i)
@@ -3716,17 +3716,4 @@
 
 
-
-
-
-(defmethod stream-read-vector ((stream binary-input-stream)
-			       vector start end)
-  (declare (fixnum start end))
-  (do* ((i start (1+ i)))
-       ((= i end) end)
-    (declare (fixnum i))
-    (let* ((b (read-byte stream)))
-      (if (eq b :eof)
-	(return i)
-	(setf (uvref vector i) b)))))
 
 (defun stream-is-closed (s)