Added tcl script.