sync with Tcl version.
sync with Tcl version