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.129 -r1.130
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	11 Sep 2024 06:15:48 -0000	1.129
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	8 Oct 2024 14:13:36 -0000	1.130
@@ -495,11 +495,13 @@
 
                 if {![info exists repository($package_key)]} continue
 
-                array unset version
-                array set version $repository($package_key)
+                set version $repository($package_key)
 
                 set satisfied_p 1
-                foreach req [concat $version(embeds) $version(extends) $version(requires)] {
+                foreach req [concat \
+                                 [dict get $version embeds] \
+                                 [dict get $version extends] \
+                                 [dict get $version requires]] {
                     lassign $req req_uri req_version
 
                     if { ![info exists provided($req_uri)]
@@ -533,7 +535,7 @@
                     lappend result(packages) $package_key
 
                     # Record what this package provides, and remove it from the required list, if appropriate
-                    foreach prov $version(provides) {
+                    foreach prov [dict get $version provides] {
                         lassign $prov prov_uri prov_version
                         # If what we provide is not already provided, or the alredady provided version is
                         # less than what we provide, record this new provision
Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.117 -r1.118
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	11 Sep 2024 06:15:48 -0000	1.117
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	8 Oct 2024 14:13:36 -0000	1.118
@@ -293,22 +293,22 @@
 
 } {
 
-    array unset ::apm_visited_package_keys
+    unset -nocomplain ::apm_visited_package_keys
     set ::apm_package_url_resolution [list]
     apm_package_list_url_resolution $package_key
     nsv_set apm_package_url_resolution $package_key $::apm_package_url_resolution
 
-    array unset ::apm_visited_package_keys
+    unset -nocomplain ::apm_visited_package_keys
     set ::apm_package_inherit_order [list]
     apm_one_package_inherit_order $package_key
     nsv_set apm_package_inherit_order $package_key $::apm_package_inherit_order
 
-    array unset ::apm_visited_package_keys
+    unset -nocomplain ::apm_visited_package_keys
     set ::apm_package_load_libraries_order [list]
     apm_one_package_load_libraries_dependencies $package_key
     nsv_set apm_package_load_libraries_order $package_key $::apm_package_load_libraries_order
 
-    array unset ::apm_visited_package_keys
+    unset -nocomplain ::apm_visited_package_keys
     set ::apm_package_descendents [list]
     apm_one_package_descendents $package_key
     nsv_set apm_package_descendents $package_key $::apm_package_descendents
Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	3 Sep 2024 15:37:34 -0000	1.88
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	8 Oct 2024 14:13:36 -0000	1.89
@@ -1153,7 +1153,7 @@
             ad_script_abort
         }
         if { $__refreshing_p } {
-            uplevel array unset ${form_name}:error
+            uplevel unset -nocomplain -- ${form_name}:error
 
             if { [info exists on_refresh] } {
                 ad_page_contract_eval uplevel #$level $on_refresh
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.143 -r1.144
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	3 Sep 2024 15:37:34 -0000	1.143
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	8 Oct 2024 14:13:37 -0000	1.144
@@ -657,19 +657,18 @@
             if { [llength $filters] > 0 } {
                 set return_val [list]
                 foreach child_url $child_urls {
-                    array unset site_node
-                    if {![catch {array set site_node [:get -url $child_url]}]} {
+                    if {![catch {set site_node [:get -url $child_url]}]} {
 
                         set passed_p 1
                         foreach { elm val } $filters {
-                            if { $site_node($elm) ne $val } {
+                            if { [dict get $site_node $elm] ne $val } {
                                 set passed_p 0
                                 break
                             }
                         }
                         if { $passed_p } {
                             if { $element ne "" } {
-                                lappend return_val $site_node($element)
+                                lappend return_val [dict get $site_node $element]
                             } else {
                                 lappend return_val $child_url
                             }
@@ -679,9 +678,8 @@
             } elseif { $element ne "" } {
                 set return_val [list]
                 foreach child_url $child_urls {
-                    array unset site_node
-                    if {![catch {array set site_node [:get -url $child_url]}]} {
-                        lappend return_val $site_node($element)
+                    if {![catch {set site_node [:get -url $child_url]}]} {
+                        lappend return_val [dict get $site_node $element]
                     }
                 }
             } else {
@@ -954,7 +952,7 @@
         }
 
         :method flush_per_request_cache {} {
-            array unset ::__node_id
+            unset -nocomplain ::__node_id
         }
 
         :public method flush_pattern {{-partition_key ""} pattern} {
Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.111 -r1.112
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	11 Sep 2024 06:15:48 -0000	1.111
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	8 Oct 2024 14:13:37 -0000	1.112
@@ -2015,7 +2015,7 @@
         } else {
 
             # Reset/create attribute array
-            array unset attribute_array
+            unset -nocomplain attribute_array
 
             # Parse the attributes
             ad_parse_html_attributes -attribute_array attribute_array $attributes