diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp
index 821c0a24bb0e9c106e6beb8580d65d62c11cff2e..42bc37f074853acc6a3b1cdcfaaee971d1b9efc5 100644
--- a/ansi-tests/printer-aux.lsp
+++ b/ansi-tests/printer-aux.lsp
@@ -112,7 +112,7 @@
 	   (with-standard-io-syntax (format *debug-io* "~%~A~%" params)))
 	 (finish-output *debug-io*))
        
-       (setf (readtable-case *readtable*) readcase)
+;       (setf (readtable-case *readtable*) readcase)
        (let* ((str (handler-case
 		    (with-output-to-string (s) (write obj :stream s))
 		    (print-not-readable