summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclTrace.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index c0cde49..2a348e6 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -2511,7 +2511,11 @@ TclObjCallVarTraces(
if (!part1Ptr) {
part1Ptr = localName(iPtr->varFramePtr, index);
}
- part1 = TclGetString(part1Ptr);
+ if (part1Ptr) {
+ part1 = TclGetString(part1Ptr);
+ } else {
+ part1 = tclEmptyString;
+ }
part2 = part2Ptr? TclGetString(part2Ptr) : NULL;
return TclCallVarTraces(iPtr, arrayPtr, varPtr, part1, part2, flags,