Index: /trunk/source/lib/sequences.lisp
===================================================================
--- /trunk/source/lib/sequences.lisp	(revision 14372)
+++ /trunk/source/lib/sequences.lisp	(revision 14373)
@@ -485,5 +485,6 @@
           (list
            (dolist (elt seq)
-             (setf (schar result out) elt))))))))
+             (setf (schar result out) elt)
+             (incf out))))))))
 
 ;This one doesn't choke on circular lists, doesn't cons as much, and is