Index: /trunk/ccl/level-1/l1-aprims.lisp
===================================================================
--- /trunk/ccl/level-1/l1-aprims.lisp	(revision 5132)
+++ /trunk/ccl/level-1/l1-aprims.lisp	(revision 5133)
@@ -552,7 +552,7 @@
     bogus
     double-float
-    base-char
-    bogus
-    bogus
+    #+target-8-bit-chars base-char #-target-8-bit-chars bogus
+    bogus
+    #-target-8-bit-chars base-char #+target-8-bit-chars bogus
     bogus
     bogus