2 files changed, 5 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index e6e8342388..d1eb365e25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Oct  2 08:04:52 2001  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* marshal.c (r_object): TYPE_UCLASS check should be inversed.
+
 Wed Sep 26 19:02:39 2001  Guy Decoux  <ts@moulon.inra.fr>
 
 	* parse.y: allow 'primary[] = arg'
diff --git a/marshal.c b/marshal.c
index 8caad612c2..75062f480c 100644
--- a/marshal.c
+++ b/marshal.c
@@ -798,7 +798,7 @@ r_object(arg)
 	    VALUE c = rb_path2class(r_unique(arg));
 	    v = r_object(arg);
 	    if (rb_special_const_p(v) ||
-		!RTEST(rb_funcall(c, rb_intern("==="), 1, v))) {
+		!RTEST(rb_funcall(c, '<', 1, RBASIC(v)->klass))) {
 		rb_raise(rb_eArgError, "dump format error (user class)");
 	    }
 	    RBASIC(v)->klass = c;