Index: generic/nsfObj.c
===================================================================
diff -u -rb01d919fe9de4aa6eee10b0a39d3c067720482ca -r821c3ed7b14ad8137bee7d31ebadcc537c153d39
--- generic/nsfObj.c	(.../nsfObj.c)	(revision b01d919fe9de4aa6eee10b0a39d3c067720482ca)
+++ generic/nsfObj.c	(.../nsfObj.c)	(revision 821c3ed7b14ad8137bee7d31ebadcc537c153d39)
@@ -124,6 +124,10 @@
    * structure as internal representation.
    */
   if (likely(objPtr->typePtr != objectType)) {
+#if defined(METHOD_OBJECT_TRACE)
+    fprintf(stderr, "... NsfMethodObjSet frees old int rep %s\n",
+	    objPtr->typePtr ? objPtr->typePtr->name : "none");
+#endif
     TclFreeIntRep(objPtr);
     mcPtr = NEW(NsfMethodContext);
     objPtr->internalRep.twoPtrValue.ptr1 = (void *)mcPtr;