Index: /trunk/ccl/level-0/l0-array.lisp
===================================================================
--- /trunk/ccl/level-0/l0-array.lisp	(revision 5116)
+++ /trunk/ccl/level-0/l0-array.lisp	(revision 5117)
@@ -410,5 +410,5 @@
     ((#.target::subtag-s8-vector
       #.target::subtag-u8-vector
-      #.target::subtag-simple-base-string)
+      #+target-8-bit-chars #.target::subtag-simple-base-string)
      (%copy-ivector-to-ivector source
                                source-start
@@ -426,4 +426,5 @@
       #.target::subtag-u32-vector
       #.target::subtag-single-float-vector
+      #-target-8-bit-chars #.target::subtag-simple-base-string
       #+32-bit-target #.target::subtag-fixnum-vector)
      (%copy-ivector-to-ivector source