diff --git a/ChangeLog b/ChangeLog
index 894cba10c6..3486214299 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Sep 13 23:39:49 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+
+	* dir.c (glob_func_caller): add prototype to get rid of warning.
+
 Fri Sep 13 18:35:12 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* eval.c (rb_eval): avoid uninitialized global/class variable
@@ -29,7 +33,7 @@ Thu Sep 12 00:09:32 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 Wed Sep 11 21:25:52 2002  Tanaka Akira  <akr@m17n.org>
 
 	* pp.rb (ARGF.pretty_print): implemented.
-	(PP.pp): arguments reordered.
+	  (PP.pp): arguments reordered.
 
 Wed Sep 11 18:55:38 2002  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
@@ -126,7 +130,7 @@ Tue Sep 10 18:26:52 2002  WATANABE Hirofumi  <eban@ruby-lang.org>
 Tue Sep 10 17:16:14 2002  NAKAMURA Usaku <usa@ruby-lang.org>
 
 	* win32/Makefile.sub (miniruby): shouldn't link $(EXTOBJS).
-	 [ruby-dev:17059]
+	  [ruby-dev:17059]
 
 	* win32/Makefile.sub ($(LIBRUBY_A), $(LIBRUBY)): avoid lib.exe's
 	  warning. [ruby-dev:17059]
diff --git a/dir.c b/dir.c
index 1886877ebe..212f71329a 100644
--- a/dir.c
+++ b/dir.c
@@ -659,10 +659,13 @@ struct glob_args {
     VALUE v;
 };
 
+static VALUE glob_func_caller _((VALUE));
+
 static VALUE
-glob_func_caller(args)
-    struct glob_args *args;
+glob_func_caller(val)
+    VALUE val;
 {
+    struct glob_args *args = (struct glob_args *)val;
     (*args->func)(args->c, args->v);
     return Qnil;
 }