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 -r1.2 -r1.3
--- openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl	10 Jan 2007 21:22:02 -0000	1.2
+++ openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl	27 Oct 2014 16:39:03 -0000	1.3
@@ -29,7 +29,7 @@
 
 set uncovered_procs [list]
 foreach proc_name $all_proc_names {
-    if { [lsearch -exact $tested_proc_names $proc_name] == -1 } {
+    if {$proc_name ni $tested_proc_names} {
 	lappend uncovered_procs $proc_name
     }
 }