tcl: better TCL-Support