diff --git a/tools/diag/README b/tools/diag/README
index 44ef7ada9e55..18f7b684eb5b 100644
--- a/tools/diag/README
+++ b/tools/diag/README
@@ -5,3 +5,5 @@ somewhere, for instance by traversing a kernel-structure and verifying
 the integrity.
 
 Please make a subdir per program, and add a brief description to this file.
+
+ac 	check if the FreeBSD handbook is in sync with the committers list
diff --git a/tools/diag/ac/ac b/tools/diag/ac/ac
new file mode 100644
index 000000000000..f2815e5eca39
--- /dev/null
+++ b/tools/diag/ac/ac
@@ -0,0 +1,26 @@
+#!/bin/sh
+# Copyright (c) March 1997. Wolfram Schneider <wosch@FreeBSD.ORG>. Berlin.
+# This script is dedicated to the FreeBSD core team.
+#
+# ac - check if the FreeBSD handbook is in sync with the committers list
+#
+# $Id$
+
+: ${CVSROOT=/usr/cvs}
+contrib=src/share/doc/handbook/contrib.sgml
+avail=CVSROOT/avail
+cvs='cvs -Q co -p'
+tmp=${TMPDIR-/tmp}/_committers
+
+$cvs $contrib | 
+	perl -ne 'print if /contrib:core/ .. /contrib:doc/' |
+	perl -ne 'print "$1\n" if /<item>\&a\.([^;]+)/' | 
+	sort -u > $tmp.contrib
+
+$cvs $avail | 
+	sed -n 's/^avail\|//p' | 
+	perl -npe 's/,/\n/g' | 
+	sort -u > $tmp.avail
+
+diff -u $tmp.avail $tmp.contrib
+rm -f $tmp.avail $tmp.contrib