Index: /trunk/ccl/lisp-kernel/x86-constants64.h
===================================================================
--- /trunk/ccl/lisp-kernel/x86-constants64.h	(revision 5086)
+++ /trunk/ccl/lisp-kernel/x86-constants64.h	(revision 5087)
@@ -150,4 +150,7 @@
 #define subtag_double_float_vector SUBTAG(ivector_class_64_bit,15L)
 
+#ifdef CHAR_SIZE_32
+#define subtag_simple_base_string SUBTAG(ivector_class_32_bit,12L)
+#endif
 #define subtag_s32_vector SUBTAG(ivector_class_32_bit,13L)
 #define subtag_u32_vector SUBTAG(ivector_class_32_bit,14L)
@@ -156,5 +159,7 @@
 #define subtag_s16_vector SUBTAG(ivector_class_other_bit,10L)
 #define subtag_u16_vector SUBTAG(ivector_class_other_bit,11L)
+#ifndef CHAR_SIZE_32
 #define subtag_simple_base_string SUBTAG(ivector_class_other_bit,12L)
+#endif
 #define subtag_s8_vector SUBTAG(ivector_class_other_bit,13L)
 #define subtag_u8_vector SUBTAG(ivector_class_other_bit,14L)
Index: /trunk/ccl/lisp-kernel/x86-constants64.s
===================================================================
--- /trunk/ccl/lisp-kernel/x86-constants64.s	(revision 5086)
+++ /trunk/ccl/lisp-kernel/x86-constants64.s	(revision 5087)
@@ -263,5 +263,8 @@
 define_subtag(u64_vector,ivector_class_64_bit,14)
 define_subtag(double_float_vector,ivector_class_64_bit,15)
-	
+
+        ifdef([CHAR_SIZE_32],[
+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)
@@ -270,5 +273,7 @@
 define_subtag(s16_vector,ivector_class_other_bit,10)
 define_subtag(u16_vector,ivector_class_other_bit,11)
+       ifdef([CHAR_SIZE_32],[],[
 define_subtag(simple_base_string,ivector_class_other_bit,12)
+])
 define_subtag(s8_vector,ivector_class_other_bit,13)
 define_subtag(u8_vector,ivector_class_other_bit,14)