diff --git a/collects/mred/private/wx/gtk/frame.rkt b/collects/mred/private/wx/gtk/frame.rkt
index f39ce652..d5191f5e 100644
--- a/collects/mred/private/wx/gtk/frame.rkt
+++ b/collects/mred/private/wx/gtk/frame.rkt
@@ -406,6 +406,7 @@
 
     (define focus-here? #f)
     (define/override (on-focus? on?)
+      (unless on? (on-menu-click))
       (on-focus-child on?)
       (cond
        [on?