Index: utils.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/utils.lisp,v
retrieving revision 1.42
diff -u -r1.42 utils.lisp
--- utils.lisp	1 Dec 2005 11:10:55 -0000	1.42
+++ utils.lisp	16 Dec 2005 07:38:04 -0000
@@ -254,8 +254,10 @@
 		(loop for ,tail-var on ,seq-var by #',(list-stepper var-length)
 		      do (,body-fun ,@list-args)))
 	       (vector
-		(loop for ,i of-type fixnum from 0 below (length ,seq-var) by ,var-length
-		      do (,body-fun ,@vector-args))))))
+		(loop
+		   for ,i of-type fixnum from 0
+		   below (- (length ,seq-var) ,(1- var-length)) by ,var-length
+		   do (,body-fun ,@vector-args))))))
 	 ,@(when result-form
 	     `((let ,vars		;Bind variables to nil
 		 (declare (ignorable ,vars))