diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt index b94a4a4dd8..bbc0b5acb4 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt @@ -172,7 +172,8 @@ (cond [(eq? (system-type) 'windows) (cond - [(or (regexp-match? #rx"a:c" cs) + [(or (and (regexp-match? #rx"a:c" cs) + (not (regexp-match? #rx"~a:c" cs))) (and (regexp-match? #rx"c:m" cs) (not (regexp-match? #rx"~c:m" cs)))) #f]