diff --git a/ChangeLog b/ChangeLog
index e33e00945f..97b5e74880 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Aug 31 16:04:22 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tcltklib/tcltklib.c (ip_delete): when a tcltkip is deleted,
+	  destroy its root widget
+
 Tue Aug 31 12:30:36 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tcltklib/tcltklib.c (del_root): fix SEGV
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 84a999d7e4..3febc43313 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -3094,6 +3094,7 @@ ip_delete(self)
 {
     struct tcltkip *ptr = get_ip(self);
 
+    del_root(ptr->ip);
     Tcl_DeleteInterp(ptr->ip);
 
     return Qnil;