rem: unsigned int listLen;
add: size_t listLen;
context: Tcl_SetKeyedListField(interp, fieldName, fieldValue, keyedList)    Tcl_Interp     *interp;    CONST char     *fieldName;    CONST char     *fieldValue;    CONST char     *keyedList;{    Tcl_Obj *keylistPtr = Tcl_NewStringObj(keyedList,  -1);    Tcl_Obj   *valuePtr = Tcl_NewStringObj(fieldValue, -1);    char    *keylistKey = (char*)fieldName;    char *listStr, *newList;    int status;    unsigned int listLen;    Tcl_IncrRefCount(keylistPtr);    Tcl_IncrRefCount(valuePtr);    status = TclX_KeyedListSet(interp, keylistPtr, keylistKey, valuePtr);    if (status != TCL_OK) {        Tcl_DecrRefCount(valuePtr);        Tcl_DecrRefCount(keylistPtr);        return NULL;    }    listStr = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), &listLen);    newList = strncpy(ckalloc(listLen + 1), listStr, listLen);    listStr[listLen] = 0;    Tcl_DecrRefCount(valuePtr);    Tcl_DecrRefCount(keylistPtr);    return newList;}