diff --git a/ChangeLog b/ChangeLog
index 7bbaf1f951..9ba51c6a90 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Mar  2 17:15:08 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/tcltklib.c (lib_eventloop_core): fix typo
+
 Wed Mar  2 16:59:50 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* eval.c (ruby_native_thread_kill): call pthread_kill() to send a 
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 2f94cf97fd..905d96929f 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -1087,7 +1087,7 @@ lib_eventloop_core(check_root, update_flag, check_var)
                     if (NIL_P(ruby_errinfo)) {
                         rb_exc_raise(rb_exc_new2(rb_eFatal, "FATAL"));
                     } else {
-                        rb_exc_faise(ruby_errinfo);
+                        rb_exc_raise(ruby_errinfo);
                     }
                 }
             }