diff --git a/contrib/ChangeLog b/contrib/ChangeLog
new file mode 100644
index 0000000000000000000000000000000000000000..438accad4fb1d677e18c3ac684aeefe526a296fd
--- /dev/null
+++ b/contrib/ChangeLog
@@ -0,0 +1,7 @@
+Sat May 23 23:38:49 1998  Matthias Klose  <doko@cs.tu-berlin.de>
+
+	* test_summary: find good awk (copied from warn_summary).
+
+Sat May 23 23:38:33 1998  Jeffrey A Law  (law@cygnus.com)
+
+	* test_summary, warn_summary: New files
diff --git a/contrib/test_summary b/contrib/test_summary
index 23e3d7e7d822286072f5cdd87c25e03662878e42..455bd998b8396462bfc1b3133cb81e740563640b 100755
--- a/contrib/test_summary
+++ b/contrib/test_summary
@@ -31,6 +31,18 @@
 # -t: prevents logs from being renamed
 # -m: specify the e-mail address to send notes to.  An appropriate default should be selected from the log files.
 # -f: force reports to be mailed; if omitted, only reports that differ from the sent.* version are sent
+
+# Find a good awk.
+if test -z "$AWK" ; then
+  for AWK in gawk nawk awk ; do
+    if type $AWK 2>&1 | grep 'not found' > /dev/null 2>&1 ; then
+      :
+    else
+      break
+    fi
+  done
+fi
+
 : ${filesuffix=}; export fileprefix
 : ${move=true}; export move
 : ${forcemail=false}; export forcemail
@@ -63,7 +75,7 @@ for file in $files; do
 done &&
 $anyfile &&
 if $forcemail || $anychange; then :; else mailto=nobody; fi &&
-gawk '
+$AWK '
 BEGIN {
   lang="";
   print "cat <<EOF |";