From fe1ab20fb7e24faed6a14cc30ce438e29847c64f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 18 Jan 2016 15:00:49 +0000
Subject: One more Tcl_GlobalEval() usage.

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

diff --git a/generic/tclTest.c b/generic/tclTest.c
index 284d80a..5468c56 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -4507,7 +4507,7 @@ TestfeventCmd(
 	    return TCL_ERROR;
 	}
 	if (interp2 != NULL) {
-	    code = Tcl_GlobalEval(interp2, argv[2]);
+	    code = Tcl_EvalEx(interp2, argv[2], -1, TCL_EVAL_GLOBAL);
 	    Tcl_SetObjResult(interp, Tcl_GetObjResult(interp2));
 	    return code;
 	} else {
-- 
cgit v0.12