Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 461)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 462)
@@ -238,6 +238,14 @@
   (stream-write-string stream string))
 
+
+(defmethod stream-read-char ((x t))
+  (report-bad-arg x 'stream))
+
 (defmethod stream-read-char ((stream stream))
   (error "~s is not capable of input" stream))
+
+(defmethod stream-unread-char ((x t) char)
+  (declare (ignore char))
+  (report-bad-arg x 'stream))
 
 (defmethod stream-unread-char ((stream stream) char)
@@ -1042,4 +1050,11 @@
 
 
+(defmethod stream-read-byte ((s t))
+  (report-bad-arg s '(and input-stream fundamental-binary-stream)))
+
+(defmethod stream-write-byte ((s t) b)
+  (declare (ignore b))
+  (report-bad-arg s '(and output-stream fundamental-binary-stream)))
+
 (defmethod stream-length ((s stream) &optional new)
   (declare (ignore new)))
@@ -2266,4 +2281,8 @@
 	    (%incf-ptr buf written)))))))
 
+(defmethod stream-read-line ((s buffered-stream-mixin))
+   (with-stream-ioblock-input (ioblock s :speedy t)
+     (%ioblock-read-line ioblock)))
+
 (defmethod stream-clear-input ((s fd-input-stream))
   (call-next-method)
@@ -2342,5 +2361,10 @@
     ;; Don't use an OR type here
     (file-stream (stream-length stream))
-    (broadcast-stream (stream-length stream))))
+    (synonym-stream (file-length
+		     (symbol-value (synonym-stream-symbol stream))))
+    (broadcast-stream (let* ((last (last-broadcast-stream stream)))
+			(if last
+			  (file-length last)
+			  0)))))
   
 (defun file-position (stream &optional position)