Index: /trunk/ccl/lib/sequences.lisp
===================================================================
--- /trunk/ccl/lib/sequences.lisp	(revision 907)
+++ /trunk/ccl/lib/sequences.lisp	(revision 908)
@@ -1037,10 +1037,10 @@
           ))
       (setq fill start)
-      (setq pos (%i+ start offset))
+      (setq pos start)
       (loop
         (if (eq fill fill-end) (return))
         (if (neq 1 (aref bv pos))
           (progn
-            (%typed-miscset subtype new-vect fill (%typed-miscref subtype vector pos))
+            (%typed-miscset subtype new-vect fill (%typed-miscref subtype vector (%i+ offset pos)))
             (setq fill (%i+ fill 1))))
         (setq pos (%i+ pos 1)))
@@ -1048,5 +1048,5 @@
       (loop
         (when (eq fill size) (return))
-          (%typed-miscset subtype new-vect fill (%typed-miscref subtype vector pos))
+          (%typed-miscset subtype new-vect fill (%typed-miscref subtype vector (%i+ offset pos)))
           (setq fill (%i+ fill 1)
                 pos (%i+ pos 1)))