From b9a9261bbab10a7aafec70649ea9995057c0c0b8 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 22 Dec 2014 15:35:47 +0000
Subject: One more (interp==NULL) shortcut.

---
 generic/tclCompCmds.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index b3568e8..106c293 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -4826,7 +4826,7 @@ PushVarName(
 		}
 	    }
 
-	    if ((elName != NULL) && elNameChars) {
+	    if (interp && (elName != NULL) && elNameChars) {
 		/*
 		 * An array element, the element name is a simple string:
 		 * assemble the corresponding token.
-- 
cgit v0.12