diff -r f8f1f6953e2d -r 4f4c0088f7b5 plugins/tcl/tcl_glib.c
--- a/plugins/tcl/tcl_glib.c	Thu Jan 15 22:55:09 2004 +0000
+++ b/plugins/tcl/tcl_glib.c	Thu Jan 15 23:02:19 2004 +0000
@@ -74,7 +74,6 @@
 
 ClientData Tcl_InitNotifier()
 {
-	Tcl_SetServiceMode(TCL_SERVICE_ALL);
 	return NULL;
 }
 
@@ -90,6 +89,7 @@
 	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);