diff --git a/ChangeLog b/ChangeLog
index fb23ba2e7a..eced3c3f79 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jul  5 15:15:10 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/tkutil.c: fix typo.
+
 Tue Jul  5 14:52:56 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/tcltklib.c: bug fix on treating Unicode strings. 
diff --git a/ext/tk/tkutil/tkutil.c b/ext/tk/tkutil/tkutil.c
index ada17da52e..464bbafa9c 100644
--- a/ext/tk/tkutil/tkutil.c
+++ b/ext/tk/tkutil/tkutil.c
@@ -373,7 +373,7 @@ ary2list(ary, enc_flag, self)
         }
         val = rb_apply(cTclTkLib, ID_merge_tklist, dst);
         if (TYPE(dst_enc) == T_STRING) {
-            val = rb_fun_call(cTclTkLib, ID_fromUTF8, 2, val, dst_enc);
+            val = rb_funcall(cTclTkLib, ID_fromUTF8, 2, val, dst_enc);
             rb_ivar_set(val, ID_at_enc, dst_enc);
         } else {
             rb_ivar_set(val, ID_at_enc, rb_str_new2("utf-8"));
@@ -463,7 +463,7 @@ ary2list2(ary, enc_flag, self)
         }
         val = rb_apply(cTclTkLib, ID_merge_tklist, dst);
         if (TYPE(dst_enc) == T_STRING) {
-            val = rb_fun_call(cTclTkLib, ID_fromUTF8, 2, val, dst_enc);
+            val = rb_funcall(cTclTkLib, ID_fromUTF8, 2, val, dst_enc);
             rb_ivar_set(val, ID_at_enc, dst_enc);
         } else {
             rb_ivar_set(val, ID_at_enc, rb_str_new2("utf-8"));