Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/search/tcl/search-procs.tcl	11 Sep 2024 06:15:53 -0000	1.58
+++ openacs-4/packages/search/tcl/search-procs.tcl	8 Oct 2024 15:04:36 -0000	1.59
@@ -131,7 +131,7 @@
         }
 
         lassign $row object_id event_date event
-        array unset datasource
+        unset -nocomplain datasource
         switch -- $event {
             UPDATE -
             INSERT {
Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.94 -r1.95
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Sep 2024 15:37:54 -0000	1.94
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	8 Oct 2024 15:09:25 -0000	1.95
@@ -672,7 +672,7 @@
     } on error {errorMsg} {
       ns_log Error "Error during ::xo::cleanup: $errorMsg $::errorInfo"
     }
-    array unset ::xo::cleanup
+    unset -nocomplain ::xo::cleanup
     #ns_log notice "*** end of cleanup"
   }
 
Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.77 -r1.78
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	11 Sep 2024 06:15:56 -0000	1.77
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	8 Oct 2024 15:09:25 -0000	1.78
@@ -711,7 +711,7 @@
     array get :perconnectionparam
   }
   ConnectionContext instproc perconnection_parameter_set_all {pairs} {
-    array unset :perconnectionparam
+    unset -nocomplain :perconnectionparam
     array set :perconnectionparam $pairs
   }
 }
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	11 Sep 2024 06:15:56 -0000	1.78
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Oct 2024 15:09:25 -0000	1.79
@@ -414,7 +414,7 @@
     #
     # Keep "long_text_slots" in a separate array (for Oracle)
     #
-    :array unset long_text_slots
+    unset -nocomplain :long_text_slots
     foreach {slot_name slot} [array get :db_slot] {
       if {[$slot sqltype] eq "long_text"} {
         set :long_text_slots($slot_name) $slot
@@ -1934,7 +1934,7 @@
     foreach x $non_cached_vars {
       if {[array exists :$x]} {
         lappend arrays $x [array get :$x]
-        array unset :$x
+        unset :$x
       } {
         lappend scalars $x [set :$x]
         unset -nocomplain :$x
Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/xotcl-core/www/show-object.tcl	11 Sep 2024 06:15:56 -0000	1.29
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	8 Oct 2024 15:09:25 -0000	1.30
@@ -280,7 +280,7 @@
   set url "/api-doc/procs-file-view?path=[ns_urlencode $doc_elements(script)]"
   append output "Defined in <a href='[ns_quotehtml $url]'>$doc_elements(script)</a><p>"
 
-  array unset doc_elements
+  unset -nocomplain doc_elements
 }
 
 set obj_create_source "$my_class create $object"
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.69 -r1.70
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	11 Sep 2024 06:15:56 -0000	1.69
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	8 Oct 2024 15:11:52 -0000	1.70
@@ -633,7 +633,7 @@
     #
     # Delete overactive counters.
     #
-    array unset :ov
+    unset -nocomplain :ov
     next
   }
 
@@ -730,8 +730,8 @@
   }
   UrlCounter instproc flush_url_stats {} {
     :log "flush_url_stats"
-    array unset :stat
-    array unset :cnt
+    unset -nocomplain :stat
+    unset -nocomplain :cnt
   }
   UrlCounter instproc url_stats {} {
     set result [list]
Index: openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl	11 Sep 2024 06:15:56 -0000	1.15
+++ openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl	8 Oct 2024 15:11:52 -0000	1.16
@@ -50,7 +50,7 @@
 if {$with_param == 0} {
   # without parameter
   # add up same URLs
-  array unset aggr_stat
+  unset -nocomplain aggr_stat
   foreach l $stat {
     lassign $l url time cnt
     set p ""
@@ -83,7 +83,7 @@
 }
 if {$with_apps == 1} {
   # reduce statistics to apps
-  array unset aggr_stat
+  unset -nocomplain aggr_stat
   foreach l $stat {
     lassign $l url time cnt
     set param ""
Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	3 Sep 2024 15:37:54 -0000	1.29
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	8 Oct 2024 15:12:58 -0000	1.30
@@ -1964,8 +1964,8 @@
 
   WorkflowPage instproc unset_temporary_instance_variables {} {
     # never save/cache the following variables
-    array unset :__wfi
-    array unset :__wf
+    unset -nocomplain :__wfi
+    unset -nocomplain :__wf
     next
   }