Index: generic/nsfObj.c
===================================================================
diff -u -ra09faeafaaacd8dcd4c52cdb86653993e8dc499a -r7ecc88fbc4a1456456a36460f1ea8cee4eff874e
--- generic/nsfObj.c	(.../nsfObj.c)	(revision a09faeafaaacd8dcd4c52cdb86653993e8dc499a)
+++ generic/nsfObj.c	(.../nsfObj.c)	(revision 7ecc88fbc4a1456456a36460f1ea8cee4eff874e)
@@ -98,6 +98,7 @@
 #endif
 
   dstMcPtr = NEW(NsfMethodContext);
+  /*fprintf(stderr, "MethodDupInternalRep allocated NsfMethodContext %p for %s\n", dstMcPtr, ObjStr(srcObjPtr));*/
   memcpy(dstMcPtr, srcMcPtr, sizeof(NsfMethodContext));
 
   dstObjPtr->typePtr = srcObjPtr->typePtr;
@@ -144,6 +145,7 @@
 #endif
     TclFreeIntRep(objPtr);
     mcPtr = NEW(NsfMethodContext);
+    /*fprintf(stderr, "NsfMethodObjSet allocated NsfMethodContext %p for %s\n", mcPtr, ObjStr(objPtr));*/
     objPtr->internalRep.twoPtrValue.ptr1 = (void *)mcPtr;
     objPtr->internalRep.twoPtrValue.ptr2 = NULL;
     objPtr->typePtr = objectType;
@@ -238,6 +240,7 @@
 #endif
 
   dstPtr = NEW(NsfFlag);
+  /*fprintf(stderr, "FlagDupInternalRep allocated NsfFlag %p for %s\n", dstPtr, ObjStr(srcObjPtr));*/
   memcpy(dstPtr, srcPtr, sizeof(NsfFlag));
 
   dstObjPtr->typePtr = srcObjPtr->typePtr;
@@ -276,6 +279,8 @@
   if (likely(objPtr->typePtr != &NsfFlagObjType)) {
     TclFreeIntRep(objPtr);
     flagPtr = NEW(NsfFlag);
+    /*fprintf(stderr, "NsfFlagObjSet allocated NsfFlag %p for %s\n", flagPtr, ObjStr(objPtr));*/
+
     objPtr->internalRep.twoPtrValue.ptr1 = (void *)flagPtr;
     objPtr->internalRep.twoPtrValue.ptr2 = NULL;
     objPtr->typePtr = &NsfFlagObjType;