Index: /branches/working-0711/ccl/level-1/l1-error-system.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-error-system.lisp	(revision 12960)
+++ /branches/working-0711/ccl/level-1/l1-error-system.lisp	(revision 12961)
@@ -1209,5 +1209,5 @@
     (simple-array single-float (* * *))
     (simple-array double-float (* * *))
-    (simple-array char (* * *))
+    (simple-array character (* * *))
 
     (vector t)