Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -N -r1.61 -r1.62
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	19 Jul 2018 11:42:05 -0000	1.61
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	19 Jul 2018 13:31:35 -0000	1.62
@@ -333,11 +333,16 @@
     testcase_desc
     args
 } {
-    Registers a testcase with the acs-automated-testing system.  Whenever possible, cases that fail to register are replaced with 'metatest' log cases, so that the register-time errors are visible at test time.
+    Registers a testcase with the acs-automated-testing system.
+    Whenever possible, cases that fail to register are replaced with
+    'metatest' log cases, so that the register-time errors are visible
+    at test time.
 
     See <a href="/doc/tutorial-debug">the tutorial</a> for examples.
 
-    @param libraries A list of keywords of additional code modules to load.  The entire test case will fail if any package is missing.  Currently includes <b>tclwebtest</b>.
+    @param libraries A list of keywords of additional code modules to
+    load.  The entire test case will fail if any package is missing.
+    Currently includes <b>tclwebtest</b>.
 
     @param cats Properties of the test case.  Must be zero or more of the following:
     <ul>
@@ -444,7 +449,7 @@
                             [info script] $package_key \
                             $cats $init_classes $on_error $args $error_level $bugs $procs]
     foreach p $procs {
-        api_add_to_proc_doc -proc_name $p -property testcase -value $testcase_id
+        api_add_to_proc_doc -proc_name $p -property testcase -value [list $testcase_id $package_key]
         ns_log notice "TESTCASE: api_add_to_proc_doc -proc_name $p -property testcase -value $testcase_id -> [dict get [nsv_get api_proc_doc $p] testcase]"
     }
     #