Index: /trunk/ccl/level-1/l1-aprims.lisp
===================================================================
--- /trunk/ccl/level-1/l1-aprims.lisp	(revision 5150)
+++ /trunk/ccl/level-1/l1-aprims.lisp	(revision 5151)
@@ -611,5 +611,5 @@
       bogus
       bogus
-      bogus
+      base-char
       (signed-byte 32)
       (unsigned-byte 32)