diff --git a/ansi-tests/types-and-class.lsp b/ansi-tests/types-and-class.lsp
index 0f248c179058c83d3a9e27794748a786b23f4f60..9e4e3637d07fcf7b9af5527f3e5ed896b6cab9eb 100644
--- a/ansi-tests/types-and-class.lsp
+++ b/ansi-tests/types-and-class.lsp
@@ -307,8 +307,8 @@
 			    (handler-case
 				(and (not (typep x tp2))
 				     (progn
-				       (format t "Found element of ~S not in ~S~%"
-					       tp tp2)
+				       (format t "Found element of ~S not in ~S ~S~%"
+					       tp tp2 x)
 				       t))
 			      (condition (c) (format t "Error ~S occured: ~S~%"
 						c tp2)