[tcl] update