diff --git a/ansi-tests/print-unreadable-object.lsp b/ansi-tests/print-unreadable-object.lsp
index d93caf8e50dfde0dcb82e5a0330519b2218e4802..97b0cd5e7d98661a068eb5d403de421e215b5fdc 100644
--- a/ansi-tests/print-unreadable-object.lsp
+++ b/ansi-tests/print-unreadable-object.lsp
@@ -77,7 +77,7 @@
 (def-pprint-test print-unreadable-object.4
   (loop
    for x in *mini-universe*
-   for return-vals1 = nil
+   for return-vals = nil
    for s = (with-output-to-string
 	     (s)
 	     (setq return-vals