diff --git a/ChangeLog b/ChangeLog
index 68dbdf1599..939f25084a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Sep  6 10:57:40 2004  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
+
+	* ext/tk/lib/tk/menu.rb(TkOptionMenubutton#insert): call correct method
+
 Mon Sep  6 07:51:42 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* eval.c (cvar_cbase): singletons should refer outer cvar scope.
diff --git a/ext/tk/lib/tk/menu.rb b/ext/tk/lib/tk/menu.rb
index 2b4c8bcd9b..f13a7c5a68 100644
--- a/ext/tk/lib/tk/menu.rb
+++ b/ext/tk/lib/tk/menu.rb
@@ -445,7 +445,7 @@ class TkOptionMenubutton<TkMenubutton
     @menu.invoke(index)
   end
   def insert(index, value)
-    @menu.add(index, 'radiobutton', 'variable'=>@variable, 
+    @menu.insert(index, 'radiobutton', 'variable'=>@variable, 
 	      'label'=>value, 'value'=>value)
     self
   end