Index: openacs-4/packages/acs-automated-testing/www/admin/component.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/component.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-automated-testing/www/admin/component.tcl	7 Aug 2017 23:47:46 -0000	1.6
+++ openacs-4/packages/acs-automated-testing/www/admin/component.tcl	30 Apr 2018 12:45:00 -0000	1.7
@@ -16,11 +16,9 @@
 
 set component_bodys {}
 foreach component [nsv_get aa_test components] {
-  if {$component_id eq [lindex $component 0] && $package_key eq [lindex $component 1]} {
-    set component_desc [lindex $component 2]
-    set component_file [lindex $component 3]
-    set component_body [lindex $component 4]
-  }
+    if {$component_id eq [lindex $component 0] && $package_key eq [lindex $component 1]} {
+        lassign $component . . component_desc component_file component_body
+    }
 }
 
 ad_return_template