diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 996b1f3feb22777de3af1c29612499b3dd27b32a..03f03a0ba35f27b3bf6d3713adf1ffbc4e0d3bad 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -62,7 +62,6 @@
                          (reader-error-format-arguments condition))
                   nil error-stream
                   (file-position error-stream)))
-       (format t "open-stream-p ~A~%" (open-stream-p error-stream))
        (format stream (intl:gettext "Reader error ~@[at ~D ~]on ~S:~%~?")
 	       (and (open-stream-p error-stream)
 		    (file-position error-stream))