Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5076)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5077)
@@ -799,4 +799,5 @@
                           :fulltagmask fulltagmask
                           :fulltag-misc fulltag-misc
+                          :char-code-limit 256
                           ))
 
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5076)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5077)
@@ -869,4 +869,5 @@
                           :fulltagmask fulltagmask
                           :fulltag-misc fulltag-misc
+                          :char-code-limit 256
                           ))