From 50155acdf38cc177aae53bcfea258a41b6fde19e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 May 2010 16:43:40 -0700
Subject: [PATCH] Fix typo.

---
 src/runtime/vector.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/vector.scm b/src/runtime/vector.scm
index 31ec0161f..d14761d2b 100644
--- 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)))
-- 
2.25.1