Tk bug [http://core.tcl.tk/tk/tktview?name=1712098|1712098]
rebase