From f7d46c88609f4991ef899059a7d16801aa245574 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 25 Dec 2003 08:49:20 +0000
Subject: * string.c (rb_str_update): call rb_str_modify().

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5293 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tcltklib/tcltklib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index ad7e377b66..a7de967838 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -824,7 +824,7 @@ ip_ruby(clientData, interp, argc, argv)
 
     /* status check */
     if (arg.failed) {
-        VALUE eclass = CLASS_OF(arg.failed);
+        VALUE eclass = rb_obj_class(arg.failed);
 	DUMP1("(rb_eval_string result) failed");
 	Tcl_ResetResult(interp);
 	Tcl_AppendResult(interp, StringValuePtr(arg.failed), (char*)NULL);
-- 
cgit v1.2.3