rem: keyedList = Tcl_GetVar(interp, argv[1], TCL_LEAVE_ERR_MSG);
add: keyedList = (char*)Tcl_GetVar(interp, argv[1], TCL_LEAVE_ERR_MSG);
context: Tcl_KeylgetCmd(clientData, interp, argc, argv)    ClientData      clientData;    Tcl_Interp     *interp;    int             argc;    char          **argv;{    char           *keyedList;    char           *fieldValue;    char          **fieldValuePtr;    int             result;    if ((argc < 2) || (argc > 4)) {        Tcl_AppendResult(interp, tclXWrongArgs, argv[0],            " listvar ?key? ?retvar | {}?", (char *) NULL);        return TCL_ERROR;    }    keyedList = Tcl_GetVar(interp, argv[1], TCL_LEAVE_ERR_MSG);    if (keyedList == NULL)        return TCL_ERROR;    /*     * Handle request for list of keys, use keylkeys command.     */    if (argc == 2)        return Tcl_KeylkeysCmd(clientData, interp, argc, argv);    /*     * Handle retrieving a value for a specified key.     */    if (argv[2] == '\0') {        interp->result = "null key not allowed";        return TCL_ERROR;    }    if ((argc == 4) && (argv[3][0] == '\0'))        fieldValuePtr = NULL;    else        fieldValuePtr = &fieldValue;    result = Tcl_GetKeyedListField(interp, argv[2], keyedList,        fieldValuePtr);    if (result == TCL_ERROR)        return TCL_ERROR;    /*     * Handle field name not found.     */    if (result == TCL_BREAK) {        if (argc == 3) {            Tcl_AppendResult(interp, "key \"", argv[2],                "\" not found in keyed list", (char *) NULL);            return TCL_ERROR;        } else {            interp->result = "0";            return TCL_OK;        }    }    /*     * Handle field name found and return in the result.     */    if (argc == 3) {        Tcl_SetResult(interp, fieldValue, TCL_DYNAMIC);        return TCL_OK;    }    /*     * Handle null return variable specified and key was found.     */    if (argv[3][0] == '\0') {        interp->result = "1";        return TCL_OK;    }    /*     * Handle returning the value to the variable.     */    if (Tcl_SetVar(interp, argv[3], fieldValue, TCL_LEAVE_ERR_MSG) == NULL)        result = TCL_ERROR;    else        result = TCL_OK;    ckfree(fieldValue);    interp->result = "1";    return result;}