diff --git a/ansi-tests/printer-aux.lsp b/ansi-tests/printer-aux.lsp
index 90c5440e8db4b2548fb24e991b2d1d754e686470..bc5aadb66bea7ca5acf69bb513e8c1af24feefbd 100644
--- a/ansi-tests/printer-aux.lsp
+++ b/ansi-tests/printer-aux.lsp
@@ -94,7 +94,11 @@
 					      (copy-readtable nil)
 					    *readtable*)))
 			 (read-from-string str))
-		       (reader-error () :error)))))
+		       (reader-error () :reader-error)
+		       (end-of-file () :end-of-file)
+		       (stream-error () :stream-error)
+		       (file-error () :file-error)
+		       ))))
 	 (unless (funcall test obj obj2)
 	   (list
 	    (list* obj str obj2 (%params)