added the tcl scripts