Index: /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5084)
+++ /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5085)
@@ -354,5 +354,7 @@
 (define-subtag u64-vector ivector-class-64-bit 14)
 (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)
 (define-subtag u32-vector ivector-class-32-bit 14)
@@ -361,4 +363,5 @@
 (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)
Index: /trunk/ccl/level-0/l0-array.lisp
===================================================================
--- /trunk/ccl/level-0/l0-array.lisp	(revision 5084)
+++ /trunk/ccl/level-0/l0-array.lisp	(revision 5085)
@@ -91,5 +91,5 @@
      unused
      double-float
-     character
+     #+target-8-bit-chars character #-target-8-bit-chars unused
      unused
      unused
@@ -120,5 +120,5 @@
     (signed-byte 16)
     (unsigned-byte 16)
-    character
+    #+target-8-bit-chars character #-target-8-bit-chars unused
     (signed-byte 8)
     (unsigned-byte 8)
@@ -141,5 +141,5 @@
     unused
     unused
-    unused
+    #-target-8-bit-chars character #+target-8-bit-chars unused
     (signed-byte 32)
     (unsigned-byte 32)
Index: /trunk/ccl/level-0/l0-pred.lisp
===================================================================
--- /trunk/ccl/level-0/l0-pred.lisp	(revision 5084)
+++ /trunk/ccl/level-0/l0-pred.lisp	(revision 5085)
@@ -561,5 +561,5 @@
     bogus
     simple-double-float-vector
-    simple-base-string
+    #+target-8-bit-chars simple-base-string #-target-8-bit-chars bogus
     bogus
     bogus
@@ -739,5 +739,5 @@
     simple-signed-word-vector
     simple-unsigned-word-vector
-    simple-base-string
+    #+target-8-bit-chars simple-base-string #-target-8-bit-chars bogus
     simple-signed-byte-vector
     simple-unsigned-byte-vector
@@ -757,5 +757,5 @@
     bogus
     bogus
-    bogus
+    #-target-8-bit-chars simple-base-string #+target-8-bit-chars bogus
     simple-signed-long-vector
     simple-unsigned-long-vector