Index: openacs-4/packages/acs-bootstrap-installer/installer/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/index.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	11 Sep 2024 06:15:47 -0000	1.35
+++ openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	8 Oct 2024 13:11:11 -0000	1.36
@@ -115,7 +115,7 @@
 #
 # Unset array errors, in case it exists
 #
-if {[array exists errors]} {array unset errors}
+unset -nocomplain errors
 
 # Perform database-specific checks
 db_installer_checks errors error_p
Index: openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl	3 Sep 2024 15:37:30 -0000	1.17
+++ openacs-4/packages/acs-bootstrap-installer/tcl/20-db-bootstrap-procs.tcl	8 Oct 2024 13:11:11 -0000	1.18
@@ -119,7 +119,7 @@
     set all_pools [ns_db pools]
 
     # unset namespaced array of database pools
-    array unset -nocomplain ::acs::db_pools
+    unset -nocomplain ::acs::db_pools
 
     set database_names [ns_config $config_path {database_names}]
 
Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	11 Sep 2024 06:15:46 -0000	1.46
+++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	8 Oct 2024 13:12:59 -0000	1.47
@@ -895,7 +895,7 @@
         }
 
         # Initialize this record
-        array unset user_info
+        unset -nocomplain user_info
 
         set username [xml_get_child_node_content_by_path $person_node { { userid } { sourcedid id } }]
 
Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	3 Sep 2024 15:37:31 -0000	1.20
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	8 Oct 2024 13:16:12 -0000	1.21
@@ -136,7 +136,7 @@
     } else {
       # This is the first id pushed - also clear the cache
       set item_id_stack [list $pair]
-      array unset revision_html
+      unset -nocomplain revision_html
     }
   } else {
     set item_id_stack [list]
@@ -174,7 +174,7 @@
 
   # If the stack is now empty, clear the cache
   if { [template::util::is_nil item_id_stack] } {
-    array unset revision_html
+      unset -nocomplain revision_html
   }
 
   lassign $pair ::content::item_id ::content::revision_id