Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 4933)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 4934)
@@ -2372,4 +2372,9 @@
     (%ioblock-write-byte ioblock byte)))
 
+(defmethod stream-write-byte ((stream basic-binary-output-stream) byte)
+  (let* ((ioblock (basic-stream-ioblock stream)))
+    (with-ioblock-output-locked (ioblock)
+      (%ioblock-write-byte ioblock byte))))
+
 (defmethod stream-write-char ((stream buffered-character-output-stream-mixin) char)
   (with-stream-ioblock-output (ioblock stream :speedy t)
@@ -2476,4 +2481,11 @@
   (with-stream-ioblock-output (ioblock s :speedy t)
     (%ioblock-out-ivect ioblock iv start length)))
+
+(defmethod stream-write-ivector ((s basic-output-stream)
+				 iv start length)
+  (let* ((ioblock (basic-stream-ioblock s)))
+    (with-ioblock-output-locked (ioblock)
+      (%ioblock-out-ivect ioblock iv start length))))
+
 
 (defmethod stream-read-ivector ((s buffered-character-input-stream-mixin)
@@ -2906,5 +2918,5 @@
                       (elements-per-buffer *elements-per-buffer*)
                       (sharing :private)
-                      (basic nil))
+                      (basic t))
   "Return a stream which reads from or writes to FILENAME.
   Defined keywords: