hash bang line added to tool.tcl