diff --git a/ChangeLog b/ChangeLog
index abb0508be6..9fc94ebd6f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Jun 10 23:18:09 2011  KOSAKI Motohiro  <kosaki.motohiro@gmail.com>
+
+	* ext/tk/tcltklib.c (lib_eventloop_core): replace CHECK_INTS with
+	  rb_thread_check_ints(). Because current code can't be compiled.
+
 Fri Jun 10 16:38:13 2011  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* encoding.c (rb_locale_charmap): When ruby process is run as Windows
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 7c5cc8a63b..d27af153a5 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -2530,7 +2530,7 @@ lib_eventloop_core(check_root, update_flag, check_var, interp)
 #ifdef RUBY_USE_NATIVE_THREAD
         /* if (update_flag == 0) CHECK_INTS; */ /*XXXXXXXXXXXXX  TODO !!!! */
 #else
-        if (update_flag == 0) CHECK_INTS;
+	if (update_flag == 0) rb_thread_check_ints();
 #endif
 
     }