Updating tcl scripts
Testing tcl script