Tcl Set Error Code