Tcl Set Error Handler