Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	11 Sep 2024 06:15:48 -0000	1.25
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	8 Oct 2024 13:53:41 -0000	1.26
@@ -295,10 +295,10 @@
     while {$group_id eq "" && $url ne ""} {
 
         if { $include_self_p } {
-            array set node_array [site_node::get -url $url]
+            set node [site_node::get -url $url]
             set group_id [application_group::group_id_from_package_id \
-                             -package_id $node_array(package_id) \
-                             -no_complain]
+                              -package_id [dict get $node package_id] \
+                              -no_complain]
         }
 
         set include_self_p 1
@@ -307,12 +307,13 @@
         set url [string trimright $url /]
         set url [string range $url 0 [string last / $url]]
     }
+
     if {$group_id eq ""} {
-        array unset -no_complain node_array
+        unset -nocomplain node
     }
-    set node_array(application_group_id) $group_id
+    dict set node application_group_id $group_id
 
-    return [array get node_array]
+    return $node
 }
 
 ad_proc -public application_group::closest_ancestor_element {