Index: /trunk/source/level-1/l1-unicode.lisp
===================================================================
--- /trunk/source/level-1/l1-unicode.lisp	(revision 8572)
+++ /trunk/source/level-1/l1-unicode.lisp	(revision 8573)
@@ -178,5 +178,5 @@
   (declare (ignore vector))
   (if (>= end start)
-    (values (- end start) (- end start))
+    (values (- end start) end)
     (values 0 0)))
 
@@ -4722,5 +4722,5 @@
            vector
            start
-           (- end start)))
+           end))