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 -r1.59 -r1.60
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	27 Jun 2018 09:15:52 -0000	1.59
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	17 Jul 2018 21:15:20 -0000	1.60
@@ -443,7 +443,9 @@
     set test_case_list [list $testcase_id $testcase_desc \
                             [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
+    }
     #
     # First, search the current list of test cases. If an old version already
     # exists, replace it with the new version.