Index: openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	11 Sep 2024 06:15:47 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	8 Oct 2024 13:04:29 -0000	1.4
@@ -58,6 +58,7 @@
             set package_name [lindex [split $path "/"] 1]
             if { $package_key eq "" || $package_key eq $package_name } {
                 foreach proc_name [nsv_get api_proc_doc_scripts $path] {
+                    unset -nocomplain proc_doc
                     array set proc_doc [nsv_get api_proc_doc $proc_name]
                     if { [info exists proc_doc(protection)]
                          && "public" in $proc_doc(protection)
@@ -77,7 +78,6 @@
                         dict set proc_data covered_p [info exists proc_doc(testcase)]
                         lappend procs "$proc_data"
                     }
-                    array unset proc_doc
                 }
             }
         }