add tcl