diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 95a748e6286a49fb8737ffe6bde58e529fbec405..d658243e660c84f2f20b324e31a0c9ee675fc67d 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -385,6 +385,20 @@
                          ~^, ~}~)."
                     (length new-failures)
                     new-failures)))
+          (when *expected-failures*
+            (let ((pending-table (make-hash-table :test #'equal)))
+              (dolist (ex pending)
+                (setf (gethash ex pending-table) t))
+              (let ((unexpected-successes
+                     (loop :for ex :in *expected-failures*
+                       :unless (gethash ex pending-table) :collect ex)))
+                (if unexpected-successes
+                    (format t "~&~:D unexpected successes: ~
+                   ~:@(~{~<~%   ~1:;~S~>~
+                         ~^, ~}~)."
+                            (length unexpected-successes)
+                            unexpected-successes)
+                    (format t "~&No unexpected successes.")))))
           ))
       (finish-output s)
       (null pending))))