Fix tcl/tk scripts