diff options
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclOOCall.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 1797760..814fb0b 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -179,6 +179,7 @@ StashCallChain( CallChain *callPtr) { callPtr->refCount++; + Tcl_GetString(objPtr); TclFreeIntRep(objPtr); objPtr->typePtr = &methodNameType; objPtr->internalRep.twoPtrValue.ptr1 = callPtr; |