Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 5391)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 5392)
@@ -1168,5 +1168,5 @@
 (defun %locked-ioblock-read-u8-encoded-char (ioblock)
   (declare (optimize (speed 3) (safety 0)))
-m  (with-ioblock-input-lock-grabbed (ioblock)
+  (with-ioblock-input-lock-grabbed (ioblock)
     (%ioblock-read-u8-encoded-char ioblock)))