Index: /trunk/ccl/level-1/l1-io.lisp
===================================================================
--- /trunk/ccl/level-1/l1-io.lisp	(revision 897)
+++ /trunk/ccl/level-1/l1-io.lisp	(revision 898)
@@ -1188,5 +1188,5 @@
                (stream-write-char stream #\#)
                (%pr-integer rank 10. stream)
-               (stream-write-char stream #\a)
+               (stream-write-char stream #\A)
                (if (eql rank 0)
                  (write-internal stream (aref array) (%i- level 1) nil)