fix typo in silence warning TCL script