Index: /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5148)
+++ /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5149)
@@ -355,5 +355,4 @@
 (define-subtag double-float-vector ivector-class-64-bit 15)
 
-#-target-8-bit-chars
 (define-subtag simple-base-string ivector-class-32-bit 12)
 (define-subtag s32-vector ivector-class-32-bit 13)
@@ -363,10 +362,7 @@
 (define-subtag s16-vector ivector-class-other-bit 10)
 (define-subtag u16-vector ivector-class-other-bit 11)
-#+target-8-bit-chars
-(define-subtag simple-base-string ivector-class-other-bit 12)
-(defconstant min-8-bit-ivector-subtag subtag-simple-base-string)
+
 (define-subtag s8-vector ivector-class-other-bit 13)
 (define-subtag u8-vector ivector-class-other-bit 14)
-(defconstant max-8-bit-ivector-subtag subtag-u8-vector)
 (define-subtag bit-vector ivector-class-other-bit 15)
 
@@ -1121,6 +1117,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)
@@ -1129,5 +1124,6 @@
                                                   :single-float-vector
                                                   :double-float
-                                                  :bignum)
+                                                  :bignum
+                                                  :simple-string)
                           :64-bit-ivector-types '(:double-float-vector
                                                   :unsigned-64-bit-vector
@@ -1172,5 +1168,5 @@
                           :fulltagmask fulltagmask
                           :fulltag-misc fulltag-misc
-                          :char-code-limit 256
+                          :char-code-limit #x110000
                           ))
 
Index: /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp	(revision 5148)
+++ /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp	(revision 5149)
@@ -153,6 +153,5 @@
                   :linuxx8664-target
                   :little-endian-target
-                  :64-bit-target
-                  :target-8-bit-chars)
+                  :64-bit-target)
 		:target-fasl-pathname (make-pathname :type "lx64fsl")
 		:target-platform (logior platform-cpu-x86
@@ -187,6 +186,5 @@
                   :darwinx8664-target
                   :little-endian-target
-                  :64-bit-target
-                  :target-8-bit-chars)
+                  :64-bit-target)
 		:target-fasl-pathname (make-pathname :type "dx64fsl")
 		:target-platform (logior platform-cpu-x86
@@ -218,6 +216,5 @@
                   :freebsdx8664-target                  
                   :little-endian-target
-                  :64-bit-target
-                  :target-8-bit-chars)
+                  :64-bit-target)
 		:target-fasl-pathname (make-pathname :type "fx64fsl")
 		:target-platform (logior platform-cpu-x86