Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5127)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 5128)
@@ -177,6 +177,6 @@
 (defconstant max-16-bit-ivector-subtag subtag-s16-vector)
 
-#+target-8-bit-chars
-(define-imm-subtag simple-base-string 27)
+
+;;(define-imm-subtag simple-base-string 27)
 (define-imm-subtag s8-vector 26)
 (define-imm-subtag u8-vector 25)
@@ -184,5 +184,4 @@
 (defconstant max-8-bit-ivector-subtag (logior fulltag-immheader (ash 27 ntagbits)))
 
-#-target-8-bit-chars
 (define-imm-subtag simple-base-string 24)
 (define-imm-subtag fixnum-vector 23)
@@ -751,6 +750,5 @@
                           :1-bit-ivector-types '(:bit-vector)
                           :8-bit-ivector-types '(:signed-8-bit-vector
-                                                 :unsigned-8-bit-vector
-                                                 :simple-string)
+                                                 :unsigned-8-bit-vector)
                           :16-bit-ivector-types '(:signed-16-bit-vector
                                                   :unsigned-16-bit-vector)
@@ -761,5 +759,6 @@
                                                   :single-float
                                                   :double-float
-                                                  :bignum)
+                                                  :bignum
+                                                  :simple-string)
                           :64-bit-ivector-types '(:double-float-vector)
                           :array-type-name-from-ctype-function
@@ -801,5 +800,5 @@
                           :fulltagmask fulltagmask
                           :fulltag-misc fulltag-misc
-                          :char-code-limit 256
+                          :char-code-limit #x110000
                           ))
 
Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5127)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5128)
@@ -342,9 +342,9 @@
 		:p2-compile 'ppc2-compile
 		:target-specific-features
-		'(:powerpc :ppc-target :eabi-target :linux-target :linuxppc-target :ppc32-target :32-bit-target :big-endian-target :target-8-bit-chars)
+		'(:powerpc :ppc-target :eabi-target :linux-target :linuxppc-target :ppc32-target :32-bit-target :big-endian-target)
 		:target-fasl-pathname (make-pathname :type "pfsl")
 		:target-platform (logior platform-word-size-32
-                                             platform-cpu-ppc
-                                             platform-os-linux)
+                                         platform-cpu-ppc
+                                         platform-os-linux)
 		:target-os :linuxppc
 		:name :linuxppc32