diff --git a/ChangeLog b/ChangeLog
index c3b4850a89..a56bee8748 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@ Sun Sep  8 19:02:28 2002  NAKAMURA Usaku <usa@ruby-lang.org>
 
 	* time.c: prototype; time_free() to avoid VC++ warnings.
 
+	* ext/tcltklib/tcltklib.c: prototype; invoke_queue_handler() to avoid
+	  VC++ warning.
+
 	* win32/win32.c (rb_w32_stat): remove S_IWGRP and S_IWOTH bits from
 	  st_mode.
 
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index b75af3fc77..cdb3b92e81 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -718,6 +718,7 @@ ivq_safelevel_handler(arg, ivq)
     return ip_invoke_real(q->argc, q->argv, q->obj);
 }
 
+int invoke_queue_handler _((Tcl_Event *, int));
 int
 invoke_queue_handler(evPtr, flags)
     Tcl_Event *evPtr;