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 -r1.3 -r1.4
--- openacs-4/packages/acs-automated-testing/www/admin/component.tcl	10 Sep 2003 08:54:31 -0000	1.3
+++ openacs-4/packages/acs-automated-testing/www/admin/component.tcl	27 Oct 2014 16:39:02 -0000	1.4
@@ -1,7 +1,7 @@
 ad_page_contract {
   @cvs-id $Id$
 } {
-  component_id:nohtml
+  component_id:notnull
   package_key:nohtml
 } -properties {
   title:onevalue
@@ -16,11 +16,10 @@
 
 set component_bodys {}
 foreach component [nsv_get aa_test components] {
-  if {$component_id == [lindex $component 0] &&
-      $package_key == [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]} {
+    set component_desc [lindex $component 2]
+    set component_file [lindex $component 3]
+    set component_body [lindex $component 4]
   }
 }