Index: openacs-4/packages/acs-automated-testing/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/index.tcl,v
diff -u -r1.5.10.1 -r1.5.10.2
--- openacs-4/packages/acs-automated-testing/www/index.tcl	30 Aug 2013 08:11:00 -0000	1.5.10.1
+++ openacs-4/packages/acs-automated-testing/www/index.tcl	18 Aug 2014 09:26:43 -0000	1.5.10.2
@@ -22,7 +22,7 @@
         if { [file exists $test_path] } {
             aa_test::parse_test_file -path $test_path -array test
             array set testcase_failure $test(testcase_failure)
-            set service(num_errors) [llength [array names testcase_failure]]
+            set service(num_errors) [array size testcase_failure]
         } 
 	
 	set admin_login_url [export_vars -base "$service(url)/register/auto-login" {{email {$service(adminemail)}} {password {$service(adminpassword)}}}]