Index: /trunk/ccl/level-1/l1-error-system.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-system.lisp	(revision 6936)
+++ /trunk/ccl/level-1/l1-error-system.lisp	(revision 6937)
@@ -341,11 +341,11 @@
   (let* ((stream (stream-error-stream condition)))
     (with-output-to-string (s)
-       (format s "on steam ~s" stream)
+       (format s "on ~s" stream)
        (let* ((pos (ignore-errors (stream-position stream))))
-                             (when pos
-                               (format s ", near position ~d" pos)))
-                           (let* ((surrounding (stream-surrounding-characters stream)))
-                             (when surrounding
-                               (format s ", within ~s" surrounding))))))
+         (when pos
+           (format s ", near position ~d" pos)))
+       (let* ((surrounding (stream-surrounding-characters stream)))
+         (when surrounding
+           (format s ", within ~s" surrounding))))))
 
 (define-condition parse-error (error) ())