From 9ba3d42046af4721998adfe3c6bd6bc9220234f4 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 29 Jan 1998 08:18:03 +0000
Subject: *** empty log message ***

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

(limited to 'object.c')

diff --git a/object.c b/object.c
index 18c011c3e5..1ba155cbfa 100644
--- a/object.c
+++ b/object.c
@@ -81,7 +81,7 @@ obj_type(obj)
 {
     VALUE cl = CLASS_OF(obj);
 
-    if (FL_TEST(cl, FL_SINGLETON)) {
+    while (FL_TEST(cl, FL_SINGLETON) || TYPE(cl) == T_ICLASS) {
 	cl = RCLASS(cl)->super;
     }
     return cl;
-- 
cgit v1.2.3