rem: unsigned int valueLen;
add: size_t valueLen;
context: Tcl_GetKeyedListField(interp, fieldName, keyedList, fieldValuePtr)    Tcl_Interp     *interp;    CONST char     *fieldName;    CONST char     *keyedList;    char          **fieldValuePtr;{    Tcl_Obj *keylistPtr = Tcl_NewStringObj(keyedList, -1);    char    *keylistKey = (char*)fieldName;    Tcl_Obj *objValPtr;    int status;    Tcl_IncrRefCount(keylistPtr);    status = TclX_KeyedListGet(interp, keylistPtr, keylistKey, &objValPtr);    if (status == TCL_BREAK) {        if (fieldValuePtr) {            *fieldValuePtr = NULL;        }    } else if (status == TCL_OK) {        if (fieldValuePtr) {            unsigned int valueLen;            char *keyValue = Tcl_GetStringFromObj(objValPtr, &valueLen);            char *newValue = strncpy(ckalloc(valueLen + 1), keyValue, valueLen);            newValue[valueLen] = 0;            *fieldValuePtr = newValue;        }        /* Tcl_DecrRefCount(objValPtr); -> TclX_KeyedListGet has obj issues? */    }    Tcl_DecrRefCount(keylistPtr);    return status;}