lazy fixs for tcl script