diff --git a/ChangeLog b/ChangeLog
index 8d73761755..ceeab3f936 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri May  7 10:00:05 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/tkutil.c (get_eval_string_core): bug fix. [ruby-dev:23466]
+
 Thu May  6 22:13:17 2004  Masatoshi SEKI  <m_seki@mva.biglobe.ne.jp>
 
 	* ext/socket/socket.c (ippaddr): use NUMERICHOST if can not resolve
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);
 	    }
 	}