clean up generated tcl a bit