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.4 -r1.5
--- openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	8 Oct 2024 13:04:29 -0000	1.4
+++ openacs-4/packages/acs-automated-testing/tcl/coverage-procs.tcl	8 Oct 2024 13:07:25 -0000	1.5
@@ -20,8 +20,7 @@
 
     @return 'true' if the proc is covered, 'false' otherwise.
 } {
-    array set proc_doc [nsv_get api_proc_doc $proc_name]
-    if {[info exists proc_doc(testcase)]} {
+    if {[dict exists [nsv_get api_proc_doc $proc_name] testcase]} {
         return true
     } else {
         return false