diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp
index 6f69eb1ea0065cda89efccfc903e9225321275cf..501d38fe19659721501f5702cda5300a5f5d30c7 100644
--- a/ansi-tests/rt.lsp
+++ b/ansi-tests/rt.lsp
@@ -157,7 +157,9 @@
   nil)
 
 (defun do-test (&optional (name *test*))
-  (do-entry (get-entry name)))
+  #-sbcl (do-entry (get-entry name))
+  #+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning))
+		       (do-entry (get-entry name))))
 
 (defun my-aref (a &rest args)
   (apply #'aref a args))
@@ -312,6 +314,11 @@
 	(do-entries stream))))
 
 (defun do-entries (s)
+  #-sbcl (do-entries* s)
+  #+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning))
+		       (do-entries* s)))
+
+(defun do-entries* (s)
   (format s "~&Doing ~A pending test~:P ~
              of ~A tests total.~%"
           (count t (the list (cdr *entries*)) :key #'pend)