From bb21d3d1f31060f66c57eec98182f686b8013b54 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 7 May 2004 01:02:39 +0000
Subject: [PATCH] * ext/tk/tkutil.c (get_eval_string_core): bug fix.
 [ruby-dev:23466]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6260 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog       | 4 ++++
 ext/tk/tkutil.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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);
 	    }
 	}