Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.60 -r1.61
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	17 Jul 2018 21:04:20 -0000	1.60
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	19 Jul 2018 12:17:45 -0000	1.61
@@ -310,6 +310,20 @@
         # Doc string was provided.
         ad_parse_documentation_string [lindex $args end-1] doc_elements
     }
+
+    #
+    # Preserve pre-existing values, e.g. from testcases, which might
+    # be loaded in a different order.
+    #
+    if {[nsv_exists api_proc_doc $proc_name]} {
+        set old_doc_elements [nsv_get api_proc_doc $proc_name]
+        #array set doc_elements $old_doc_elements
+        if {[dict exist $old_doc_elements testcase]} {
+            #ns_log notice "PRESERVE TESTCASES: $proc_name"
+            set doc_elements(testcase) [dict get $old_doc_elements testcase]
+        }
+    }
+
     set code_block [lindex $args end]
 
     if {$callback ne "" && $impl ne "" } {
@@ -325,7 +339,7 @@
     #  Parse the argument list.
     #
     #####
-
+    
     set switches [list]
     set positionals [list]
     set seen_positional_with_default_p 0