diff --git a/collects/mred/private/wx/cocoa/menu-bar.rkt b/collects/mred/private/wx/cocoa/menu-bar.rkt
index 2a3fde20f5..3bf8f0f8dd 100644
--- a/collects/mred/private/wx/cocoa/menu-bar.rkt
+++ b/collects/mred/private/wx/cocoa/menu-bar.rkt
@@ -58,7 +58,12 @@
                     (and r
                          (begin
                            (parameterize ([recurring-for-command #t])
-                             (tell r keyDown: evt))
+                             (let ([evt-type (tell #:type _NSInteger evt type)])
+                               (cond
+                                [(= NSKeyDown evt-type)
+                                 (tell r keyDown: evt)]
+                                [(= NSKeyUp evt-type)
+                                 (tell r keyUp: evt)])))
                            #t)))))))))
 
 (define cocoa-mb (tell (tell MyBarMenu alloc) init))