diff --git a/collects/tests/mred/wxme.ss b/collects/tests/mred/wxme.ss
index 695bce1791..3870cd3b20 100644
--- a/collects/tests/mred/wxme.ss
+++ b/collects/tests/mred/wxme.ss
@@ -156,9 +156,9 @@
 (define d1 (new style-delta%))
 (define d2 (new style-delta%))
 (expect (send d1 get-underlined-on) #f)
-(expect (send d1 equal d2) #t)
+(expect (send d1 equal? d2) #t)
 (send d1 set-underlined-on #t)
-(expect (send d1 equal d2) #f)
+(expect (send d1 equal? d2) #f)
 (send d2 collapse d1)
 (expect (send d2 get-underlined-on) #t)
 (send d2 set-underlined-on #f)