Index: /trunk/ccl/library/loop.lisp
===================================================================
--- /trunk/ccl/library/loop.lisp	(revision 327)
+++ /trunk/ccl/library/loop.lisp	(revision 328)
@@ -155,5 +155,5 @@
   (if *loop-gentemp*
       (gentemp (string pref))
-      (gensym)))
+      (gensym (string pref))))
 
 
@@ -1956,5 +1956,5 @@
 	  (multiple-value-setq (form start-constantp start-value)
 	    (loop-constant-fold-if-possible form indexv-type))
-	  (loop-make-iteration-variable indexv form indexv-type))
+	  (setq indexv (loop-make-iteration-variable indexv form indexv-type)))
 	 ((:upto :to :downto :above :below)
 	  (cond ((loop-tequal prep :upto) (setq inclusive-iteration (setq dir ':up)))