Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.70 -r1.71
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	8 Oct 2024 15:11:52 -0000	1.70
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	9 Oct 2024 07:19:38 -0000	1.71
@@ -1501,7 +1501,7 @@
     # very recent (e.g. younger than 3 munutes)
     #
     if {[ad_file readable ${:file}] && ([clock seconds] - [ad_file mtime ${:file}] > 180)} {
-      Users array unset user_in_community
+      Users unset -nocomplain user_in_community
     }
   }
   dump proc collect {} {
Index: openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl	3 Sep 2024 15:37:55 -0000	1.2
+++ openacs-4/packages/xowiki/tcl/test/xowiki-admin-tests-procs.tcl	9 Oct 2024 07:18:18 -0000	1.3
@@ -174,9 +174,10 @@
             aa_log $msg
         }
         test proc reset {} {
-            array unset ::xotcl_cleanup
-            array unset ::af_parts
-            array unset ::af_key_name
+          unset -nocomplain \
+              ::xotcl_cleanup \
+              ::af_parts \
+              ::af_key_name
         }
         test proc without_ns_form {cmd} {
             rename ::ns_queryget ::ns_queryget.orig
@@ -1324,7 +1325,7 @@
 
         set l ":de:parentpage"
         set test [label "link" "existing language link" $l]
-        p array unset lang_links
+        p unset -nocomplain lang_links
         set link [p create_link $l]
         ? {$link render} {} "\n$test\n "
         ? {p array get lang_links} [subst -nocommands {found {{<a href='/$instance_name/de/parentpage' ><img class='found'  src='/resources/xowiki/flags/de.png' alt='de'></a>}}}] "\n$test links\n "