diff --git a/ChangeLog b/ChangeLog
index 7a632e844b..8e7a5ead04 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sun Dec 22 04:07:47 2002  NAKAMURA Usaku <usa@ruby-lang.org>
+
+	* ext/dbm/dbm.c (fdbm_alloc): allocator takes only one argument.
+
 Sun Dec 22 02:49:25 2002  NAKAMURA Usaku <usa@ruby-lang.org>
 
 	* array.c (ary_alloc), dir.c (dir_s_alloc), eval.c (thgroup_s_alloc),
diff --git a/ext/dbm/dbm.c b/ext/dbm/dbm.c
index c3102de9dc..c122f5a2b4 100644
--- a/ext/dbm/dbm.c
+++ b/ext/dbm/dbm.c
@@ -64,10 +64,9 @@ fdbm_close(obj)
     return Qnil;
 }
 
+static VALUE fdbm_alloc _((VALUE));
 static VALUE
-fdbm_alloc(argc, argv, klass)
-    int argc;
-    VALUE *argv;
+fdbm_alloc(klass)
     VALUE klass;
 {
     return Data_Wrap_Struct(klass, 0, free_dbm, 0);