Here's a script-only demo of the problem:

$ cat demo.tcl
interp create slave
load {} Tk slave
slave eval menu .menubar
menu .menubar
exit

$ wish demo.tcl
alloc: invalid block: 0x198f8720: a0 19
Abort