diff --git a/ChangeLog b/ChangeLog
index 3e0b27927d..379761c175 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Sat Jun 11 10:15:50 2011  Tanaka Akira  <akr@fsij.org>
+
+	* thread.c (rb_thread_execute_interrupts): use GetThreadPtr to extract
+	  rb_thread_t from VALUE.
+	  reorted by Motohiro KOSAKI.  [ruby-dev:43700]
+
 Sat Jun 11 10:00:49 2011  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ruby.c (ruby_process_options): add missing return type.
diff --git a/thread.c b/thread.c
index 433e7be4fb..3365a55020 100644
--- a/thread.c
+++ b/thread.c
@@ -1360,9 +1360,11 @@ rb_threadptr_execute_interrupts(rb_thread_t *th)
 }
 
 void
-rb_thread_execute_interrupts(VALUE th)
+rb_thread_execute_interrupts(VALUE thval)
 {
-    rb_threadptr_execute_interrupts_rec((rb_thread_t *)th, 0);
+    rb_thread_t *th;
+    GetThreadPtr(thval, th);
+    rb_threadptr_execute_interrupts_rec(th, 0);
 }
 
 void