updated to call tcl scripts