Index: /trunk/source/level-1/l1-error-system.lisp
===================================================================
--- /trunk/source/level-1/l1-error-system.lisp	(revision 15236)
+++ /trunk/source/level-1/l1-error-system.lisp	(revision 15237)
@@ -71,5 +71,5 @@
                (format stream "Contents of ~a" source)
                (when position
-                 (format stream ", near ~a ~d," (if (typep source 'stream) "positition" "index") position))
+                 (format stream ", near ~a ~d," (if (typep source 'stream) "position" "index") position))
                (format stream " don't represent a valid character in ~s." encoding-name)))))