Index: /trunk/ccl/level-0/l0-utils.lisp
===================================================================
--- /trunk/ccl/level-0/l0-utils.lisp	(revision 5134)
+++ /trunk/ccl/level-0/l0-utils.lisp	(revision 5135)
@@ -61,5 +61,8 @@
            (declare (fixnum len)(optimize (speed 3)(safety 0)))
            (multiple-value-bind (ss offset) (array-data-and-offset s)
-	     (%copy-ivector-to-ivector ss offset new 0 len))
+             #+target-8-bit-chars
+	     (%copy-ivector-to-ivector ss offset new 0 len)
+             #-target-8-bit-chars
+             (%copy-ivector-to-ivector ss (ash offset 2) new 0 (ash len 2)))
            new))
         (t (report-bad-arg s 'string))))