Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5138)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5139)
@@ -217,5 +217,4 @@
 (define-cl-array-subtag u32-vector ivector-class-32-bit 2)
 (define-cl-array-subtag single-float-vector ivector-class-32-bit 3)
-#-target-8-bit-chars
 (define-cl-array-subtag simple-base-string ivector-class-32-bit 5)
 (define-cl-array-subtag s16-vector ivector-class-other-bit 1)
@@ -224,6 +223,4 @@
 (define-cl-array-subtag s8-vector ivector-class-8-bit 1)
 (define-cl-array-subtag u8-vector ivector-class-8-bit 2)
-#+target-8-bit-chars
-(define-cl-array-subtag simple-base-string ivector-class-8-bit 5)
 
 ;;; There's some room for expansion in non-array ivector space.
@@ -820,6 +817,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)
@@ -828,5 +824,6 @@
                                                   :single-float-vector
                                                   :double-float
-                                                  :bignum)
+                                                  :bignum
+                                                  :simple-string)
                           :64-bit-ivector-types '(:double-float-vector
                                                   :unsigned-64-bit-vector
@@ -871,5 +868,5 @@
                           :fulltagmask fulltagmask
                           :fulltag-misc fulltag-misc
-                          :char-code-limit 256
+                          :char-code-limit #x110000
                           ))
 
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5138)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5139)
@@ -193,5 +193,5 @@
 		:p2-compile 'ppc2-compile
 		:target-specific-features
-		'(:powerpc :ppc-target :poweropen-target :linux-target :linuxppc-target :ppc64-target :64-bit-target :big-endian-target :target-8-bit-chars)
+		'(:powerpc :ppc-target :poweropen-target :linux-target :linuxppc-target :ppc64-target :64-bit-target :big-endian-target)
 		:target-fasl-pathname (make-pathname :type "p64fsl")
 		:target-platform (logior platform-cpu-ppc
@@ -221,5 +221,5 @@
 		:p2-compile 'ppc2-compile
 		:target-specific-features
-		'(:powerpc :ppc-target :darwin-target :darwinppc-target :ppc64-target :64-bit-target :big-endian-target :target-8-bit-chars)
+		'(:powerpc :ppc-target :darwin-target :darwinppc-target :ppc64-target :64-bit-target :big-endian-target)
 		:target-fasl-pathname (make-pathname :type "d64fsl")
 		:target-platform (logior platform-cpu-ppc