Index: generic/nsfObj.c =================================================================== diff -u -r5ee4c3c7cdbf4620ffb4f9a7f69751f3c9647e2c -r27f3f462b1eab6ac548a8cf189317feede27278b --- generic/nsfObj.c (.../nsfObj.c) (revision 5ee4c3c7cdbf4620ffb4f9a7f69751f3c9647e2c) +++ generic/nsfObj.c (.../nsfObj.c) (revision 27f3f462b1eab6ac548a8cf189317feede27278b) @@ -106,6 +106,8 @@ FREE(NsfMethodContext, mcPtr); objPtr->internalRep.twoPtrValue.ptr1 = NULL; objPtr->typePtr = NULL; + } else { + fprintf(stderr, "NSF Warning: MethodFreeInternalRep of '%s' has no internal rep\n", Tcl_GetString(objPtr)); } } @@ -183,7 +185,7 @@ objPtr->internalRep.twoPtrValue.ptr2 = NULL; objPtr->typePtr = objectType; #if defined(METHOD_OBJECT_TRACE) - fprintf(stderr, "alloc %p methodContext %p methodEpoch %d type <%s> %s refCount %d\n", + fprintf(stderr, "methodObj alloc %p methodContext %p methodEpoch %d type <%s> %s refCount %d\n", (void *)objPtr, (void *)mcPtr, methodEpoch, objectType->name, ObjStr(objPtr), objPtr->refCount); #endif