* If there are already similar trace functions active for the variable,
     * don't call them again.
     */

    if (TclIsVarTraceActive(varPtr)) {
	return code;
    }
    printf("TclCallVarTraces: entering\n");
    TclSetVarTraceActive(varPtr);
    if (TclIsVarInHash(varPtr)) {
        {
            Tcl_HashEntry* entry = &((VarInHash*)varPtr)->entry;
            Tcl_Obj* objp = entry->key.objPtr;
            printf("TclCallVarTraces: TclIsVarInHash returned true for varPtr!\n");
            printf("part1 = '%s', part2 = '%s', varPtr = %p, objPtr = %p, keyType = %d, typePtr = %p\n",
                    part1, part2, varPtr, objp,
                    entry->tablePtr->keyType, entry->tablePtr->typePtr);
            printf("TclIsVarLink? = %d\n", TclIsVarLink(varPtr));
            int len;
            if(entry->tablePtr->keyType == TCL_STRING_KEYS) {
                const char* s = Tcl_GetStringFromObj(objp, &len);
                if((s != NULL) && (len > 0)) {
                    printf(".. name = '%s'\n", s);
                }
            }
        }
	VarHashRefCount(varPtr)++;
    }
    if (arrayPtr && TclIsVarInHash(arrayPtr)) {
        {
            Tcl_HashEntry* entry = &((VarInHash*)varPtr)->entry;
            Tcl_Obj* objp = entry->key.objPtr;
            printf("TclCallVarTraces: TclIsVarInHash returned true for arrayPtr!\n");
            printf("part1 = '%s', part2 = '%s', varPtr = %p, objPtr = %p, keyType = %d, typePtr = %p\n",
                    part1, part2, varPtr, objp,
                    entry->tablePtr->keyType, entry->tablePtr->typePtr);
            printf("TclIsVarLink? = %d\n", TclIsVarLink(varPtr));
            int len;
            // if((long)objp < 0x100000000) {
            if(entry->tablePtr->keyType == TCL_CUSTOM_TYPE_KEYS) {
                const char* s = Tcl_GetStringFromObj(objp, &len);
                if((s != NULL) && (len > 0)) {
                    printf(".. name = '%s'\n", s);
                }
            }
        }
	VarHashRefCount(arrayPtr)++;
    }
    fflush(stdout);

    /*
     * If the variable name hasn't been parsed into array name and element, do
     * it here. If there really is an array element, make a copy of the
     * original name so that NULLs can be inserted into it to separate the
     * names (can't modify the name string in place, because the string might
     * get used by the callbacks we invoke).