diff --git a/collects/mred/private/wx/win32/window.rkt b/collects/mred/private/wx/win32/window.rkt index 3ca1072ca2..99e148e0f5 100644 --- a/collects/mred/private/wx/win32/window.rkt +++ b/collects/mred/private/wx/win32/window.rkt @@ -155,7 +155,7 @@ (unhide-cursor) (begin0 (default w msg wParam lParam) - (do-key w msg wParam lParam #f #f))] + (do-key w msg wParam lParam #f #f default))] [(= msg WM_KEYDOWN) (do-key w msg wParam lParam #f #f default)] [(= msg WM_KEYUP)