rem: Tcl_SetHashValue(hPtr, &pools);
add: Tcl_SetHashValue(hPtr, &defpool);
context: NsInitPools(void){    Tcl_HashEntry *hPtr;    int new;    poolid = Ns_UrlSpecificAlloc();    Tcl_InitHashTable(&pools, TCL_STRING_KEYS);    InitPool(&defpool);    defpool.name = ns_strdup("default");    hPtr = Tcl_CreateHashEntry(&pools, "default", &new);    if (new) {        Tcl_SetHashValue(hPtr, &pools);    }}