@@ -1,10 +1,10 @@
 
  /* ==================================================================
 
     FILE: "/diska/home/joze/src/tclreadline/tclreadline.c"
-    LAST MODIFICATION: "Wed Sep  8 17:47:13 1999 (joze)"
+    LAST MODIFICATION: "Wed Sep  8 20:53:23 1999 (joze)"
     (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     $Id$
     ---
 
     tclreadline -- gnu readline for tcl
@@ -336,10 +336,11 @@
         TCL_FILE_EVENTS
         TCL_TIMER_EVENTS
         TCL_IDLE_EVENTS
         TCL_ALL_EVENTS
     */
+    return TCL_OK;
 }
 void
 TclReadlineReadHandler(ClientData clientData, int mask)
 {
 #if 0