diff --git a/src/cmp/cmparray.lsp b/src/cmp/cmparray.lsp
index 29cec5ae9..55868f691 100644
--- a/src/cmp/cmparray.lsp
+++ b/src/cmp/cmparray.lsp
@@ -212,8 +212,8 @@
 	      collect `(let ((%ndx-var ,index))
 			 (declare (ext:array-index %ndx-var))
 			 ,(and check `(check-index-in-bounds ,a %ndx-var ,dim-var))
-			 `(setf %output-var
-				(the ext:array-index (+ %output-var %ndx-var))))
+			 (setf %output-var
+			       (the ext:array-index (+ %output-var %ndx-var))))
 	      do (setf last-dim dim-var))
          %output-var))))