--- main.c.orig	Tue Dec 15 00:15:13 1998
+++ main.c	Tue Dec 15 18:39:26 1998
@@ -726,6 +726,8 @@
       int socket_cleanup = 0;
       
       context;
+      /* process a single tcl event */
+      Tcl_DoOneEvent(TCL_ALL_EVENTS|TCL_DONT_WAIT);
       /* lets move some of this here, reducing the numer of actual
        * calls to periodic_timers */
       now = time(NULL);