diff --git a/src/cmp/cmpopt-type.lsp b/src/cmp/cmpopt-type.lsp
index c3b0711e7..95a69ab3e 100644
--- a/src/cmp/cmpopt-type.lsp
+++ b/src/cmp/cmpopt-type.lsp
@@ -30,11 +30,12 @@
 			 ,@declarations)
 		(si::while (< ,variable ,%limit)
                   ,@body
-		  (reckless (setq ,variable (1+ ,variable))))))
+		  (reckless (setq ,variable (1+ ,variable))))
+		,@output))
              (t
 	      (let ((,variable 0))
 		(declare ,@declarations)
                 (si::while (< ,variable ,%limit)
                   ,@body
-		  (setq ,variable (1+ ,variable))))))
-           ,@output)))))
+		  (setq ,variable (1+ ,variable)))
+		,@output))))))))