Index: openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	30 Nov 2007 18:16:42 -0000	1.9
+++ openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl	27 Oct 2014 16:39:03 -0000	1.10
@@ -1,10 +1,10 @@
 ad_page_contract {
     @cvs-id $Id$
 } {
-    testcase_id:nohtml
+    testcase_id:notnull
     package_key:nohtml
-    {showsource 0}
-    {quiet 1}
+    {showsource:boolean 0}
+    {quiet:boolean 1}
 } -properties {
     title:onevalue
     context_bar:onevalue
@@ -47,11 +47,9 @@
 
 set testcase_bodys {}
 foreach testcase [nsv_get aa_test cases] {
-    if {$testcase_id == [lindex $testcase 0] &&
-        $package_key == [lindex $testcase 3]} {
+    if {$testcase_id eq [lindex $testcase 0] && $package_key eq [lindex $testcase 3]} {
         set testcase_desc     [lindex $testcase 1]
         set testcase_file     [lindex $testcase 2]
-        set package_key       [lindex $testcase 3]
         set testcase_cats     [join [lindex $testcase 4] ", "]
         set testcase_inits    [join [lindex $testcase 5] ", "]
         set testcase_on_error [lindex $testcase 6]