fixed type in tcl script