rem: if (chmod(Tcl_GetString(objv[1]), mode) != 0) {
add: if (chmod(Tcl_GetString(objv[1]), (mode_t)mode) != 0) {
context: NsTclChmodObjCmd(ClientData arg, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]){    int mode;        if (objc != 3) {        Tcl_WrongNumArgs(interp, 1, objv, "filename mode");	return TCL_ERROR;    }    if (Tcl_GetIntFromObj(interp, objv[2], &mode) != TCL_OK) {    	return TCL_ERROR;    }    if (chmod(Tcl_GetString(objv[1]), mode) != 0) {        Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "chmod (\"", 		Tcl_GetString(objv[1]), "\", ", 		Tcl_GetString(objv[2]),		") failed:  ", Tcl_PosixError(interp), NULL);        return TCL_ERROR;    }    return TCL_OK;}