diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index 392269b18c2..c57f0e7c281 100644
--- a/Modules/tkappinit.c
+++ b/Modules/tkappinit.c
@@ -21,13 +21,13 @@ Tcl_AppInit(interp)
 {
 	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;