Index: /branches/1.1/ccl/level-1/l1-unicode.lisp
===================================================================
--- /branches/1.1/ccl/level-1/l1-unicode.lisp	(revision 8571)
+++ /branches/1.1/ccl/level-1/l1-unicode.lisp	(revision 8572)
@@ -178,5 +178,5 @@
   (declare (ignore vector))
   (if (>= end start)
-    (values (- end start) (- end start))
+    (values (- end start) end)
     (values 0 0)))
 
@@ -4583,5 +4583,5 @@
            vector
            start
-           (- end start)))
+           end))