diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index bdbbbec307..27872288b0 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -709,7 +709,10 @@ module browser threading seems wrong. (make-object (if checked? menu:can-restore-checkable-menu-item% menu:can-restore-menu-item%) - (gui-utils:trim-string (defn-name defn) 200) + (regexp-replace* + #rx"&" + (gui-utils:trim-string (defn-name defn) 200) + "&&") menu (λ (x y) (reset) diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss index 32ac7c320b..b80a4bb086 100644 --- a/collects/framework/private/group.ss +++ b/collects/framework/private/group.ss @@ -105,7 +105,7 @@ (let ([frame (frame-frame frame)]) (make-object menu-item% (regexp-replace* - "&" + #rx"&" (gui-utils:trim-string (get-name frame) 200) "&&") menu