Index: openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/Attic/coverage-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	30 Aug 2019 10:08:14 -0000	1.1.2.3
+++ openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	5 Sep 2019 12:59:49 -0000	1.1.2.4
@@ -33,8 +33,8 @@
     {-package_key ""}
 } {
     Creates a list of the procs belonging to a particular package, with its
-    current automated testing covered status, excluding deprecated and not
-    public procs.
+    current automated testing covered status, excluding deprecated, callback
+    contracts and not public procs.
 
     If no 'package_key' is passed, then the system wide test proc coverage is
     returned.
@@ -62,6 +62,7 @@
                     if { [info exists proc_doc(protection)]
                         && "public" in $proc_doc(protection)
                         && !($proc_doc(deprecated_p) || $proc_doc(warn_p))
+                        && ![regexp {^callback::.*::contract$} "$proc_name"]
                     } {
                         set proc_data [dict create]
                         if { $package_key eq "" } {