diff --git a/collects/mred/private/wx/cocoa/frame.rkt b/collects/mred/private/wx/cocoa/frame.rkt
index 362ab56e21..9b8a4395b2 100644
--- a/collects/mred/private/wx/cocoa/frame.rkt
+++ b/collects/mred/private/wx/cocoa/frame.rkt
@@ -392,6 +392,8 @@
     (define/override (is-responder wx on?)
       (unless (and (not on?)
                    (not (eq? first-responder wx)))
+        (unless on?
+          (tellv cocoa makeFirstResponder: #f))
         (if on?
             (set! first-responder wx)
             (set! first-responder #f))