diff --git a/ChangeLog b/ChangeLog
index 473ecc8917..1ccf6a7385 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu May  6 22:09:29 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/tkutil.c (get_eval_string_core): bug fix. [ruby-dev:23466]
+
 Thu May  6 14:22:29 2004  why the lucky stiff  <why@ruby-lang.org>
 
 	* lib/yaml/rubytypes.rb (to_yaml): added instance variable handling
diff --git a/ext/tk/tkutil.c b/ext/tk/tkutil.c
index cacc2622f0..78e666d1b1 100644
--- a/ext/tk/tkutil.c
+++ b/ext/tk/tkutil.c
@@ -595,7 +595,7 @@ get_eval_string_core(obj, enc_flag, self)
 	    if (rb_respond_to(self, ID_install_cmd)) {
 		return rb_funcall(self, ID_install_cmd, 1, obj);
 	    } else {
-		return tk_install_cmd(obj);
+		return tk_install_cmd_core(obj);
 	    }
 	}