diff options
Diffstat (limited to 'generic/tclOOCall.c')
| -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 d660c58..060f811 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -183,6 +183,7 @@ StashCallChain( Tcl_ObjIntRep ir; callPtr->refCount++; + TclGetString(objPtr); ir.twoPtrValue.ptr1 = callPtr; Tcl_StoreIntRep(objPtr, &methodNameType, &ir); } |