diff --git a/ChangeLog b/ChangeLog
index 96def5e582..f668800812 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Aug 28 16:36:40 2002  WATANABE Hirofumi  <eban@ruby-lang.org>
+
+	* configure.in (ar): don't check twice for ar.
+
 Wed Aug 28 15:00:29 2002  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* string.c (rb_str_delete_bang): should check if str->ptr is 0.
diff --git a/configure.in b/configure.in
index f96249ad92..4553aaa9ef 100644
--- a/configure.in
+++ b/configure.in
@@ -98,7 +98,9 @@ AC_PROG_GCC_TRADITIONAL
 AC_PROG_YACC
 AC_CHECK_TOOL(RANLIB, ranlib, :)
 AC_CHECK_TOOL(AR, ar)
-AC_CHECK_PROGS(AR, ar aal, ar)
+if test -z "$AR"; then
+  AC_CHECK_PROGS(AR, aal, ar)
+fi
 
 case "$target_os" in
 cygwin*|mingw*)