diff --git a/src/tests/bugs/doit.lsp b/src/tests/bugs/doit.lsp
index b4780d199..1f8b527b4 100644
--- a/src/tests/bugs/doit.lsp
+++ b/src/tests/bugs/doit.lsp
@@ -71,8 +71,8 @@
    (load "eformat-002.lsp"))
  (load "eformat-001.lsp"))
 
-(setf sb-rt::*expected-failures*
-      (nconc sb-rt::*expected-failures*
-             '(MOP-GF-ADD/REMOVE-DEPENDENT)))
+;; (setf sb-rt::*expected-failures*
+;;       (nconc sb-rt::*expected-failures*
+;;              '(MOP-GF-ADD/REMOVE-DEPENDENT)))
 
 (time (sb-rt:do-tests))
diff --git a/src/tests/bugs/mop-dependents.lsp b/src/tests/bugs/mop-dependents.lsp
index 288159f9c..a2316350b 100644
--- a/src/tests/bugs/mop-dependents.lsp
+++ b/src/tests/bugs/mop-dependents.lsp
@@ -82,7 +82,7 @@
                 (equalp l3
                         (list (list f 'remove-method m1)
                               (list f 'add-method m1)
-                              (list f :name 'mop-gf-add/remove-dependent)))
+                              (list f)))
                 (null l4)
                 (eq l5 l3)
                 (eq l6 l3)