rem: Tcl_SetObjResult(interp, itPtr->adp.objv[i]);
add: if ((i + 1) <= itPtr->adp.objc) { Tcl_SetObjResult(interp, itPtr->adp.objv[i]); }
context: NsTclAdpArgvObjCmd(ClientData arg, Tcl_Interp *interp, int objc,		   Tcl_Obj **objv){    NsInterp *itPtr = arg;    int i;    if (objc != 1 && objc != 2) {	Tcl_WrongNumArgs(interp, 1, objv, "?index?");	return TCL_ERROR;    }    if (objc == 1) {	Tcl_SetListObj(Tcl_GetObjResult(interp), itPtr->adp.objc,		       itPtr->adp.objv);    } else {    	if (Tcl_GetIntFromObj(interp, objv[1], &i) != TCL_OK) {    	    return TCL_ERROR;    	}    	Tcl_SetObjResult(interp, itPtr->adp.objv[i]);    }    return TCL_OK;}