Index: openacs-4/packages/acs-subsite/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.tcl,v
diff -u -r1.22.2.1 -r1.22.2.2
--- openacs-4/packages/acs-subsite/www/admin/index.tcl	22 Jan 2024 17:34:50 -0000	1.22.2.1
+++ openacs-4/packages/acs-subsite/www/admin/index.tcl	7 Aug 2024 09:56:08 -0000	1.22.2.2
@@ -13,15 +13,16 @@
     acs_lang_admin_url:onevalue
 }
 
-array set this_node [site_node::get -url [ad_conn url]]
-set title "Subsite [_ acs-subsite.Administration]: $this_node(instance_name)"
+set title "[_ acs-subsite.Administration]: [ad_conn instance_name]"
+#set context [_ acs-subsite.Administration]
+#set context [list [list "." "[_ acs-subsite.Administration]"] "Admin"]
 
 set acs_admin_url [apm_package_url_from_key "acs-admin"]
-array set acs_admin_node [site_node::get -url $acs_admin_url]
-set acs_admin_name $acs_admin_node(instance_name)
+set acs_admin_node_info [site_node::get -url $acs_admin_url]
+set acs_admin_name [dict get $acs_admin_node_info instance_name]
 set sw_admin_p [permission::permission_p \
                     -party_id [ad_conn user_id] \
-                    -object_id $acs_admin_node(object_id) \
+                    -object_id [dict get $acs_admin_node_info object_id] \
                     -privilege admin]
 
 #