diff --git a/ChangeLog b/ChangeLog
index c13a183951..946736ba78 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Mar  7 00:01:04 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tcltklib/tcltklib.c: fail to call TclTkLib.mainloop when $SAFE==4
+
 Sun Mar  6 16:41:33 2005  Minero Aoki  <aamine@loveruby.net>
 
 	* lib/net/http.rb: HTTPHeader holds its header fields as an array
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index ff374b07d4..aae7ac5486 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -8394,6 +8394,7 @@ Init_tcltklib()
 #define DEFAULT_EVENTLOOP_DEPTH 7
 #endif 
     eventloop_stack = rb_ary_new2(DEFAULT_EVENTLOOP_DEPTH);
+    OBJ_TAINT(eventloop_stack);
 
     watchdog_thread  = Qnil;