fixed PR 8229

svn: r4091
2006-08-18 21:48:17 +00:00 · 2006-08-18 21:48:17 +00:00 · d98140e347
commit d98140e347
parent e88f4afa71
2 changed files with 5 additions and 2 deletions
--- 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)
--- 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