This is a patch to tcl8.3.4