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.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	3 Sep 2024 15:37:34 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	9 Oct 2024 12:10:21 -0000	1.3
@@ -843,7 +843,7 @@
         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]}
-        array unset arr
+        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]
@@ -892,7 +892,7 @@
         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]}
-        array unset arr
+        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]