Index: /trunk/ccl/lib/sequences.lisp
===================================================================
--- /trunk/ccl/lib/sequences.lisp	(revision 414)
+++ /trunk/ccl/lib/sequences.lisp	(revision 415)
@@ -238,5 +238,5 @@
        (let* ((typecode (typecode sequence)))
 	 (declare (fixnum typecode))
-	 (when (= typecode target::subtag-arrayH)
+	 (when (= typecode target::subtag-vectorH)
 	   (multiple-value-bind (data offset)
 	       (array-data-and-offset sequence)