Index: /trunk/ccl/level-1/l1-init.lisp
===================================================================
--- /trunk/ccl/level-1/l1-init.lisp	(revision 5106)
+++ /trunk/ccl/level-1/l1-init.lisp	(revision 5107)
@@ -126,5 +126,6 @@
   GET-INTERNAL-REAL-TIME and GET-INTERNAL-RUN-TIME.")
 
-(defconstant char-code-limit #x100
+(defconstant char-code-limit #.(arch::target-char-code-limit
+                                (backend-target-arch *target-backend*))
   "the upper exclusive bound on values produced by CHAR-CODE")