diff --git a/ChangeLog b/ChangeLog
index 9f51732997..08b61733cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jul 30 16:17:06 2003  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* marshal.c (w_object): marshal_dump should not take any
+	  argument.
+
 Wed Jul 30 15:54:04 2003  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* ext/openssl/ossl_ssl.c (ossl_sslctx_initialize): should initialize
diff --git a/marshal.c b/marshal.c
index 14adf825c3..eeed643d7b 100644
--- a/marshal.c
+++ b/marshal.c
@@ -483,7 +483,7 @@ w_object(obj, arg, limit)
 	if (rb_respond_to(obj, s_mdump)) {
 	    VALUE v;
 
-	    v = rb_funcall(obj, s_mdump, 1, INT2NUM(limit));
+	    v = rb_funcall(obj, s_mdump, 0, 0);
 	    w_class(TYPE_USRMARSHAL, obj, arg);
 	    w_object(v, arg, limit);
 	    if (ivtbl) w_ivar(ivtbl, &c_arg);