From b6d046213b7d8a18051b7b0992c6bc1516e4ed2a Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 2 Oct 2014 17:43:16 +0000
Subject: [bc1a96407a] Partial solution should avoid crash, but may lead to
 wrong behavior.

---
 generic/tclTrace.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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,
-- 
cgit v0.12