Index: generic/nsfStack.c
===================================================================
diff -u -r6bc4dd9b7169c16cbc826d9071fe18a2be1f0e98 -r9addecef4701fd68a81b54714a370a9de3eb25f3
--- generic/nsfStack.c	(.../nsfStack.c)	(revision 6bc4dd9b7169c16cbc826d9071fe18a2be1f0e98)
+++ generic/nsfStack.c	(.../nsfStack.c)	(revision 9addecef4701fd68a81b54714a370a9de3eb25f3)
@@ -596,7 +596,8 @@
  *----------------------------------------------------------------------
  * CallStackMethodPath --
  *
- *    Return the method path of the current ensemble.
+ *    Return the method path of the current ensemble in a Tcl_Obj with
+ *    refCount 0.
  *
  * Results:
  *    Tcl_Obj containing the method path
@@ -666,6 +667,7 @@
     int oc, i;
     Tcl_Obj **ov;
     
+    INCR_REF_COUNT(methodPathObj);
     Tcl_ListObjGetElements(interp, methodPathObj, &oc, &ov);
     resultObj = Tcl_NewListObj(0, NULL);