diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp
index d1394e998ead993ed36a7a0076be2be5c9303bf5..6b947de537d301971dea0b2417fbcd0d5f43bcd7 100644
--- a/ansi-tests/printer-aux.lsp
+++ b/ansi-tests/printer-aux.lsp
@@ -22,7 +22,7 @@
 ;;; the object and the printer variable bindings otherwise.  They key
 ;;; argument TEST is used to compared the reread object and obj.
 
-(defparameter *random-read-check-debug* nil
+(defvar *random-read-check-debug* nil
   "When set to true, RANDOMLY-CHECK-READABILITY will dump out parameter
    settings before trying a test.  This is intended for cases where the
    error that occurs is fatal.")