diff --git a/ansi-tests/reader-test.lsp b/ansi-tests/reader-test.lsp
index 5db7df0d4a6da2e35e005be3c7b9ac7dd951e7b4..7de4fc678e3fb8fb7c87e2400d427458c25e6f27 100644
--- a/ansi-tests/reader-test.lsp
+++ b/ansi-tests/reader-test.lsp
@@ -146,8 +146,9 @@
 		(unless (and (symbolp sym)
 			     (eql nread (+ 4 actual-len))
 			     (string-equal s2 (symbol-name sym)))
-		  (format t "Symbol read failed: ~S (~S) read as ~S~%"
-			  actual-string s2 sym :readably t)
+		  (let ((*print-readably* t))
+		    (format t "Symbol read failed: ~S (~S) read as ~S~%"
+			    actual-string s2 sym))
 		  t)))))))
 
 (deftest read-symbol.9