@@ -665,11 +665,11 @@ return(TCL_ERROR); } Tcl_SetObjResult(interp, Tcl_NewStringObj("", -1)); - return(TCL_ERROR); + return(TCL_OK); } static int tuapi_getuid(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { uid_t uid; Tcl_WideInt tclUid;