Index: openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	9 Oct 2024 12:10:21 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	9 Oct 2024 12:14:28 -0000	1.4
@@ -816,12 +816,12 @@
 
         set r [$cmd x {select object_id from acs_objects where object_id = -1}]
         aa_true "$cmd constant query" {$r == 1}
-        aa_true "$cmd returns variable" {[info exists object_id]}
+        aa_true "$cmd returns variable" [info exists object_id]
         unset object_id
 
         set r [$cmd x {select object_id from acs_objects where object_id = -4711}]
         aa_true "$cmd constant query" {$r == 0}
-        aa_false "$cmd returns variable" {[info exists object_id]}
+        aa_false "$cmd returns variable" [info exists object_id]
 
         set x -1
         set r [$cmd x {select object_id from acs_objects where object_id = :x}]
@@ -840,16 +840,16 @@
         set s [ns_set create binds b -1]
         set r [$cmd x {select object_id from acs_objects where object_id = :b} -bind $s -column_array arr]
         aa_true "$cmd query with provided bind variable from ns_set" {$r == 1}
-        aa_true "$cmd returns column_array" {[array exists arr]}
+        aa_true "$cmd returns column_array" [array exists arr]
         aa_equals "$cmd returns column_array value" [array get arr] "object_id -1"
-        aa_false "$cmd returns variable" {[info exists object_id]}
+        aa_false "$cmd returns variable" [info exists object_id]
         unset -nocomplain arr
 
         set s [ns_set create binds b -1]
         set r [$cmd x {select object_id from acs_objects where object_id = :b} -bind $s -column_set n]
         aa_true "$cmd query with provided bind variable from ns_set" {$r == 1}
         aa_equals "$cmd returns column_ns_set value" [ns_set array $n] "object_id -1"
-        aa_false "$cmd returns variable" {[info exists object_id]}
+        aa_false "$cmd returns variable" [info exists object_id]
     }
 
 aa_register_case \
@@ -870,34 +870,34 @@
         set cmd db_1row
 
         set r [$cmd x {select object_id from acs_objects where object_id = -1}]
-        aa_true "$cmd returns variable" {[info exists object_id]}
+        aa_true "$cmd returns variable" [info exists object_id]
         unset object_id
 
         set x -1
         set r [$cmd x {select object_id from acs_objects where object_id = :x}]
-        aa_true "$cmd returns variable bind variable from environment" {[info exists object_id]}
+        aa_true "$cmd returns variable bind variable from environment" [info exists object_id]
         unset object_id
 
         set r [$cmd x {select object_id from acs_objects where object_id = :a} -bind {a -1}]
-        aa_true "$cmd with bind variable from var list returns variable" {[info exists object_id]}
+        aa_true "$cmd with bind variable from var list returns variable" [info exists object_id]
         unset object_id
 
         set s [ns_set create binds b -1]
         set r [$cmd x {select object_id from acs_objects where object_id = :b} -bind $s]
-        aa_true "$cmd with provided bind variable from ns_set returns variable" {[info exists object_id]}
+        aa_true "$cmd with provided bind variable from ns_set returns variable" [info exists object_id]
         unset object_id
 
         set s [ns_set create binds b -1]
         set r [$cmd x {select object_id from acs_objects where object_id = :b} -bind $s -column_array arr]
-        aa_true "$cmd returns column_array" {[array exists arr]}
+        aa_true "$cmd returns column_array" [array exists arr]
         aa_equals "$cmd returns column_array value" [array get arr] "object_id -1"
-        aa_false "$cmd returns variable" {[info exists object_id]}
+        aa_false "$cmd returns variable" [info exists object_id]
         unset -nocomplain arr
 
         set s [ns_set create binds b -1]
         set r [$cmd x {select object_id from acs_objects where object_id = :b} -bind $s -column_set n]
         aa_equals "$cmd returns column_ns_set value" [ns_set array $n] "object_id -1"
-        aa_false "$cmd returns variable" {[info exists object_id]}
+        aa_false "$cmd returns variable" [info exists object_id]
     }
 
 aa_register_case -cats {