@@ -393,10 +393,14 @@
 
 	/* Hack to get around Tcl bug 1224888.  This must be run here and
 	 * in LibraryPathObjCmd because this information is needed both
 	 * before and after that command is run. */
 	FindAndSetExecName(interp);
+
+#if defined(_WIN32) && defined(KIT_INCLUDES_TK)
+	Tk_InitConsoleChannels(interp);
+#endif /* _WIN32 and KIT_INCLUDES_TK */
 
 	return;
 }
 
 #ifndef TCLKIT_DLL