Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.242 -r1.243
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	11 Sep 2024 06:15:56 -0000	1.242
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	8 Oct 2024 15:16:27 -0000	1.243
@@ -135,7 +135,7 @@
     }
   }
   ::xowiki::Includelet proc available_includelets {} {
-    if {[array exists :html]} {array unset :html}
+    unset -nocomplain :html
     :describe_includelets [::xowiki::Includelet info subclass]
     set result "<ul>"
     foreach d [lsort [array names :html]] {
Index: openacs-4/packages/xowiki/tcl/notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/notification-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/xowiki/tcl/notification-procs.tcl	3 Sep 2024 15:37:55 -0000	1.24
+++ openacs-4/packages/xowiki/tcl/notification-procs.tcl	8 Oct 2024 15:16:27 -0000	1.25
@@ -177,8 +177,7 @@
 
     foreach cat_id [category::get_mapped_categories [$page set item_id] ] {
       set tree_id [category::get_tree $cat_id]
-      array unset cat
-      array unset label
+      unset -nocomplain cat label
       foreach category_info [::xowiki::Category get_category_infos \
                                  -tree_id $tree_id] {
         lassign $category_info category_id category_label deprecated_p level
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.545 -r1.546
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	11 Sep 2024 06:15:56 -0000	1.545
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	8 Oct 2024 15:16:27 -0000	1.546
@@ -3323,7 +3323,7 @@
     #
     # Flush all cached form_field_names.
     #
-    array unset ::_form_field_names
+    unset -nocomplain ::_form_field_names
   }
 
   Page instproc form_field_exists {name} {
Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.130 -r1.131
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	8 Oct 2024 14:13:36 -0000	1.130
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	8 Oct 2024 15:25:46 -0000	1.131
@@ -549,7 +549,7 @@
                         if { [info exists required($prov_uri)]
                              && [apm_version_names_compare $required($prov_uri) $prov_version] <= 0
                          } {
-                            array unset required($prov_uri)
+                            unset required($prov_uri)
                         }
                     }
 
@@ -584,7 +584,7 @@
                     break
                 }
 
-                array unset version
+                unset -nocomplain version
                 array set version $repository($package_key)
 
                 ns_log Debug "apm_dependency_check_new: Considering $package_key: [array get version]"
@@ -638,7 +638,7 @@
                 continue
             }
 
-            array unset version
+            unset -nocomplain version
             array set version $repository($package_key)
 
             # Find unsatisfied requirements
@@ -2091,7 +2091,7 @@
         set root_node [xml_doc_get_first_node $tree]
 
         foreach package_node [xml_node_get_children_by_name $root_node "package"] {
-            array unset version
+            unset -nocomplain version
             set version(package.key)  [xml_node_get_content [xml_node_get_first_child_by_name $package_node "package-key"]]
             set version(name)         [xml_node_get_content [xml_node_get_first_child_by_name $package_node "version"]]
             set version(package-name) [xml_node_get_content [xml_node_get_first_child_by_name $package_node "pretty-name"]]
@@ -2165,7 +2165,7 @@
         lappend spec_files {*}[apm_scan_packages]
         foreach spec_file $spec_files {
             ad_try {
-                array unset version
+                unset -nocomplain version
                 array set version [apm_read_package_info_file $spec_file]
 
                 # If the package doesn't support this RDBMS, it's not really available for install
@@ -2293,9 +2293,7 @@
     # If it's not a nested call then initialize the ids array.
     # If it is nested we will typically need id's from the parent
     if {!$nested_p} {
-        array unset ids
-        array set ids [list]
-
+        unset -nocomplain ids
         # set default ids for the main site and core packages
         set ids(ACS_KERNEL) [apm_package_id_from_key acs-kernel]
         set ids(ACS_TEMPLATING) [apm_package_id_from_key acs-templating]