Index: openacs-4/packages/acs-automated-testing/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	10 Sep 2003 08:54:31 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	14 Feb 2004 19:19:38 -0000	1.4
@@ -104,7 +104,7 @@
     set testcase_desc      [lindex $results("$testcase_id,$package_key") 0]
     regexp {^(.+?\.)\s} $testcase_desc "" testcase_desc
     set categories         [lindex $results("$testcase_id,$package_key") 2]
-    set categories_str     [string map {" " ", "} $categories]
+    set categories_str     [join $categories ", "]
     set testcase_timestamp [lindex $results("$testcase_id,$package_key") 3]
     set testcase_passes    [lindex $results("$testcase_id,$package_key") 4]
     set testcase_fails     [lindex $results("$testcase_id,$package_key") 5]