2 files changed, 10 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 5544bd83a5..fe17e603e0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jun 16 16:04:40 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* object.c (rb_mod_le): singleton class inherits Class rather than its
+	  object's class.  [ruby-dev:23690]
+
 Wed Jun 16 16:01:17 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* gc.c (stack_grow_direction): memoize the direction.
diff --git a/object.c b/object.c
index b44534fc0f..dd6b1f3aea 100644
--- a/object.c
+++ b/object.c
@@ -1283,6 +1283,11 @@ rb_mod_le(mod, arg)
 	rb_raise(rb_eTypeError, "compared with non class/module");
     }
 
+    if (FL_TEST(mod, FL_SINGLETON)) {
+	if (RCLASS(mod)->m_tbl == RCLASS(arg)->m_tbl)
+	    return Qtrue;
+	mod = RBASIC(mod)->klass;
+    }
     while (mod) {
 	if (RCLASS(mod)->m_tbl == RCLASS(arg)->m_tbl)
 	    return Qtrue;