sync with Tcl version.