cleanup not used tcl scripts