rem: Tcl_InitHashTable(tablePtr, TCL_STRING_KEYS);
add: Tcl_InitHashTable(tablePtr, TCL_ONE_WORD_KEYS);
context: IncrCount(Pool *poolPtr, int incr){    Tcl_HashTable *tablePtr;    Tcl_HashEntry *hPtr;    int prev, count, new;    tablePtr = Ns_TlsGet(&tls);    if (tablePtr == NULL) {	tablePtr = ns_malloc(sizeof(Tcl_HashTable));	Tcl_InitHashTable(tablePtr, TCL_STRING_KEYS);	Ns_TlsSet(&tls, tablePtr);    }    hPtr = Tcl_CreateHashEntry(tablePtr, (char *) poolPtr, &new);    if (new) {	prev = 0;    } else {	prev = (int) Tcl_GetHashValue(hPtr);    }    count = prev + incr;    if (count == 0) {	Tcl_DeleteHashEntry(hPtr);    } else {	Tcl_SetHashValue(hPtr, (ClientData) count);    }    return prev;}