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 -N -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	22 Oct 2019 07:59:19 -0000	1.1.2.6
+++ openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	7 Feb 2021 18:49:33 -0000	1.1.2.7
@@ -60,10 +60,14 @@
                 foreach proc_name [nsv_get api_proc_doc_scripts $path] {
                     array set proc_doc [nsv_get api_proc_doc $proc_name]
                     if { [info exists proc_doc(protection)]
-                        && "public" in $proc_doc(protection)
-                        && !($proc_doc(deprecated_p) || $proc_doc(warn_p))
-                        && ![regexp {^callback::.*::contract$} "$proc_name"]
-                    } {
+                         && "public" in $proc_doc(protection)
+                         && !($proc_doc(deprecated_p) || $proc_doc(warn_p))
+                         && ![regexp {^callback::.*::contract$} $proc_name]
+                         && ![string match xo::db::sql::* $proc_name]
+                         && ![string match " Class *" $proc_name]
+                         && ![string match " Object *" $proc_name]
+                     } {
+                        ns_log notice "proc-doc, for <$proc_name>"
                         set proc_data [dict create]
                         if { $package_key eq "" } {
                             dict set proc_data package_key $package_name