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 -r1.6
--- openacs-4/packages/acs-automated-testing/www/index.tcl	10 Jan 2007 21:22:02 -0000	1.5
+++ openacs-4/packages/acs-automated-testing/www/index.tcl	27 Oct 2014 16:39:02 -0000	1.6
@@ -15,14 +15,14 @@
 
 set xml_report_dir [aa_test::xml_report_dir]
 if { $xml_report_dir ne "" } {
-    foreach path [glob $xml_report_dir/*-installreport.xml] {
+    foreach path [glob -nocomplain $xml_report_dir/*-installreport.xml] {
         aa_test::parse_install_file -path $path -array service
 
         set test_path [aa_test::test_file_path -install_file_path $path]
         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)}}}]