Index: /trunk/ccl/level-0/PPC/ppc-array.lisp
===================================================================
--- /trunk/ccl/level-0/PPC/ppc-array.lisp	(revision 5098)
+++ /trunk/ccl/level-0/PPC/ppc-array.lisp	(revision 5099)
@@ -34,7 +34,10 @@
                   ppc32::max-8-bit-ivector-subtag
                   ppc32::max-16-bit-ivector-subtag)
-               (eql ppc32::max-32-bit-ivector-subtag ppc32::subtag-new-string)
+               (eql ppc32::max-32-bit-ivector-subtag #+target-8-bit-chars 199
+                    #-target-8-bit-chars ppc32::subtag-simple-base-string)
                (eql ppc32::max-16-bit-ivector-subtag ppc32::subtag-s16-vector)
-               (eql ppc32::max-8-bit-ivector-subtag ppc32::subtag-simple-base-string))))
+               (eql ppc32::max-8-bit-ivector-subtag
+                    #-target-8-bit-chars 223
+                    #+target-8-bit-chars ppc32::subtag-simple-base-string))))
 
 #+ppc32-target