Index: openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl	7 Aug 2017 23:47:46 -0000	1.4
+++ openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl	9 Apr 2018 20:11:54 -0000	1.5
@@ -9,9 +9,9 @@
 set all_proc_names [list]
 foreach file_path [nsv_array names api_proc_doc_scripts] {
     if { [regexp "^packages/$package_key" $file_path] } {
-	foreach proc_name [nsv_get api_proc_doc_scripts $file_path] {
-	    lappend all_proc_names $proc_name
-	}
+        foreach proc_name [nsv_get api_proc_doc_scripts $file_path] {
+            lappend all_proc_names $proc_name
+        }
     }
 }
 
@@ -20,17 +20,17 @@
     set testcase_package_key [lindex $testcase 3]
 
     if {$testcase_package_key eq $package_key} {
-	set tested_procs [lindex $testcase 10]
-	if { [llength $tested_procs] > 0 } {
-	    set tested_proc_names [concat $tested_proc_names $tested_procs] 
-	}
+        set tested_procs [lindex $testcase 10]
+        if { [llength $tested_procs] > 0 } {
+            lappend tested_proc_names {*}$tested_procs
+        }
     }
 }
 
 set uncovered_procs [list]
 foreach proc_name $all_proc_names {
     if {$proc_name ni $tested_proc_names} {
-	lappend uncovered_procs $proc_name
+        lappend uncovered_procs $proc_name
     }
 }