#157 "no current grab" error on second time a menu is accessed

[Edward Sternin]

When selecting an entry from a menu (I have a menu bar .mbar on top, and the first entry is .mbar.file, obviously) the second time, the following internal error shows up:

no current grab: releasing grab stack: top=".mbar.file"
no current grab: releasing grab stack: top=".mbar.file"
    while executing
"grab current $w"
    (procedure "SaveGrabInfo" line 3)
    invoked from within
"SaveGrabInfo $w"
    (procedure "tk::MbPost" line 123)
    invoked from within
"tk::MbPost $tk::Priv(inMenubutton) 1053 384"
    invoked from within
"if {$tk::Priv(inMenubutton) ne ""} {
    tk::MbPost $tk::Priv(inMenubutton) 1053 384
    }"
    (command bound to event)

On a menu entry that opens a file pop-up dialog, it shows up on the first click.

Needless to say, my script does not have a "grab current..." anywhere in it.

Not seen under 2.4z.