--- a/plugins/tcl/tcl_glib.c	Thu Jan 15 22:20:29 2004 +0000
+++ b/plugins/tcl/tcl_glib.c	Thu Jan 15 22:53:07 2004 +0000
@@ -74,6 +74,7 @@
 
 ClientData Tcl_InitNotifier()
 {
+	Tcl_SetServiceMode(TCL_SERVICE_ALL);
 	return NULL;
 }
 
@@ -89,7 +90,6 @@
 	notifier.waitForEventProc = tcl_wait_for_event;
 
 	Tcl_SetNotifier(&notifier);
-	Tcl_SetServiceMode(TCL_SERVICE_ALL);
 
 	tcl_timer_pending = FALSE;
 	tcl_file_handlers = g_hash_table_new(g_direct_hash, g_direct_equal);