diff --git a/compiler/life.lisp b/compiler/life.lisp
index d52ff4fe4c60a90ed441c59fc29c4eee67ac6b04..2a679e717f08aab5533e64d73ea8d388d920eb37 100644
--- a/compiler/life.lisp
+++ b/compiler/life.lisp
@@ -316,8 +316,8 @@
 
     (do ((op (do ((op ops (tn-ref-across op))
 		  (i 0 (1+ i)))
-		 ((= i (length fixed)) op))
-	     (declare (type index i))
+		 ((= i (length fixed)) op)
+	       (declare (type index i)))
 	     (tn-ref-across op)))
 	((null op))
       (let ((tn (tn-ref-tn op)))