if (Tcl_EvalObjv(interp, 2, arguments, 0) != TCL_OK) { /* Was an error or other exception; report here... */ Tcl_DecrRefCount(arguments[0]); Tcl_DecrRefCount(arguments[1]); return 0; } Tcl_DecrRefCount(arguments[0]); Tcl_DecrRefCount(arguments[1]); if (Tcl_GetObjRes