Update t-sh-l.tcl