tcl exit status code snippet