Refactoring for Tcl