[tcl] fix
[tk] initial import