Index: /trunk/source/level-1/l1-streams.lisp
===================================================================
--- /trunk/source/level-1/l1-streams.lisp	(revision 13498)
+++ /trunk/source/level-1/l1-streams.lisp	(revision 13499)
@@ -6238,5 +6238,5 @@
        (if (< (the fixnum value) 0)
          (report-bad-arg value 'unsigned-byte))
-       (do* ((shift (ash(the fixnum (1- len)) 3) (- shift 8)))
+       (do* ((shift (ash (the fixnum (1- len)) 3) (- shift 8)))
             ((< shift 0) (progn
                            (setf (io-buffer-idx outbuf) idx)