diff --git a/ansi-tests/loop5.lsp b/ansi-tests/loop5.lsp
index 190276b6153dc94c2b3e18255bbfc48cb6b6a42f..01673320ceff3ac4cf9b9069d9de55580c749f96 100644
--- a/ansi-tests/loop5.lsp
+++ b/ansi-tests/loop5.lsp
@@ -176,7 +176,7 @@
 	  for v = (make-array '(10) :initial-contents fvals :element-type type)
 	  for r = (loop for x across v collect x)
 	  unless (equal r fvals)
-	  collect (list i r)))
+	  collect (list fvals r)))
   nil)
 
 (deftest loop.5.43
@@ -187,7 +187,7 @@
 	  for v = (make-array '(10) :initial-contents fvals :element-type type)
 	  for r = (loop for x across v collect x)
 	  unless (equal r fvals)
-	  collect (list i r)))
+	  collect (list fvals r)))
   nil)
 
 ;;; Error cases