Index: /trunk/ccl/lib/sequences.lisp
===================================================================
--- /trunk/ccl/lib/sequences.lisp	(revision 5120)
+++ /trunk/ccl/lib/sequences.lisp	(revision 5121)
@@ -138,5 +138,5 @@
       (%copy-gvector-to-gvector src start dest 0 n)
       (ecase typecode
-	((#.target::subtag-simple-base-string
+	((#+target-8-bit-chars #.target::subtag-simple-base-string
 	  #.target::subtag-s8-vector
 	  #.target::subtag-u8-vector)
@@ -152,5 +152,6 @@
 	  #.target::subtag-u32-vector
 	  #.target::subtag-single-float-vector
-          #+32-bit-target #.target::subtag-fixnum-vector)
+          #+32-bit-target #.target::subtag-fixnum-vector
+          #-target-8-bit-chars #.target::subtag-simple-base-string)
 	 (%copy-ivector-to-ivector src
 				   (the fixnum (ash start 2))