Fix typo.

diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm
index 31ec0161fe82c3c4356a26782d90d2e35f8a5ecf..d14761d2be7fe566209109edf74911f96b2eca93 100644 (file)
--- a/src/runtime/vector.scm
+++ b/src/runtime/vector.scm
@@ -81,7 +81,7 @@ USA.
 
 (define (vector-head! vector end)
   (guarantee-subvector vector 0 end 'VECTOR-HEAD!)
-  (if (fix:< end (vector-length end))
+  (if (fix:< end (vector-length vector))
       (primitive-object-set! vector 0
                             (primitive-make-object (ucode-type false)
                                                    end)))