Fix incorrect 'this' scope in i2tcl

fixes #9794

diff --git a/contrib/i2eval/i2tcl.cpp b/contrib/i2eval/i2tcl.cpp
index 7ffe68ebb9964fd1700b5e60f6aa7c502edbb5f7..056dd3f7154d819a4de7d76cae38103f65fba6a3 100644 (file)
--- a/contrib/i2eval/i2tcl.cpp
+++ b/contrib/i2eval/i2tcl.cpp
@@ -96,7 +96,9 @@ void *i2_new_frame(Tcl_Interp *interp)
                Application::InitializeBase();
        }
 
-       return new ScriptFrame();
+       ScriptFrame *frame = new ScriptFrame();
+       frame->Self = ScriptGlobal::GetGlobals();
+       return frame;
 }
 
 void i2_free_frame(void *frame, Tcl_Interp *interp)