diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index 392269b..c57f0e7 100644
--- a/Modules/tkappinit.c
+++ b/Modules/tkappinit.c
@@ -21,13 +21,13 @@
 {
 	Tk_Window main;
 
-	main = Tk_MainWindow(interp);
-
 	if (Tcl_Init (interp) == TCL_ERROR)
 		return TCL_ERROR;
 	if (Tk_Init (interp) == TCL_ERROR)
 		return TCL_ERROR;
 
+	main = Tk_MainWindow(interp);
+
 #ifdef WITH_MOREBUTTONS
 	{
 		extern Tcl_CmdProc studButtonCmd;