`'root` menu bar has some problems

There seem to be two problems (or two symptoms of the same problem).

1. run this first program and then close the window. The type cmd-o. This should produce the printout "open", but it beeps instead.

#lang racket/gui
(define mb (new menu-bar% [parent 'root]))
(define m (new menu% [label "File"] [parent mb]))
(define mi (new menu-item% [parent m] [label "Open"] [shortcut #\o] [callback (λ x (printf "open\n"))]))
(define f (new frame% [label "frame"] [width 100] [height 100]))
(send f show #t)
(yield (make-semaphore 0))

2. this second program should show the root menu bar, but when running racket f.rkt (where f.rkt contains this program) from the command line doesn't do that. It just seems to keep the previous menu bar from whatever app you used to run racket.

#lang racket/gui
(define mb (new menu-bar% [parent 'root]))
(define m (new menu% [label "File"] [parent mb]))
(define mi (new menu-item% [parent m] [label "Open"] [shortcut #\o] [callback (λ x (printf "open\n"))]))
(yield (make-semaphore 0))

Run the two minimal racket/gui programs from the issue and reproduce both root menu-bar failures, including the command-line case. Trace the root menu-bar behavior from the GUI entry points involved; done means cmd-o prints "open" after closing the window and running the second program displays its own root menu bar.