From 36c44d8572394858bf7e0956c4b8e1eecc333eb6 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 29 Jan 2015 17:37:59 +0000
Subject: Protect against extension variable resolvers that fail to play by the
 post-Var Reform rules.

---
 generic/tclVar.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/generic/tclVar.c b/generic/tclVar.c
index a6f6cf4..33071ae 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -3914,7 +3914,8 @@ Tcl_GetVariableFullName(
 	    } else if (iPtr->varFramePtr->procPtr) {
 		int index = varPtr - iPtr->varFramePtr->compiledLocals;
 
-		if (index < iPtr->varFramePtr->numCompiledLocals) {
+		if (index >= 0
+			&& index < iPtr->varFramePtr->numCompiledLocals) {
 		    namePtr = localName(iPtr->varFramePtr, index);
 		    Tcl_AppendObjToObj(objPtr, namePtr);
 		}
-- 
cgit v0.12