Index: /trunk/ccl/level-1/l1-io.lisp
===================================================================
--- /trunk/ccl/level-1/l1-io.lisp	(revision 896)
+++ /trunk/ccl/level-1/l1-io.lisp	(revision 897)
@@ -572,5 +572,5 @@
 ;;>> Doesn't do *print-level* truncation
 (defmethod print-object ((c complex) stream)
-  (pp-start-block stream "#c(")
+  (pp-start-block stream "#C(")
   (print-object (realpart c) stream)
   (pp-space stream)