Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -N -r1.68.2.10 -r1.68.2.11
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	8 Jan 2020 13:47:57 -0000	1.68.2.10
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	3 May 2020 17:00:28 -0000	1.68.2.11
@@ -132,11 +132,11 @@
 
 } {
     if { [application_group::group_id_from_package_id -no_complain -package_id $package_id] eq "" } {
-        array set node [site_node::get_from_object_id -object_id $package_id]
-        set node_id $node(node_id)
+        set node_info [site_node::get_from_object_id -object_id $package_id]
+        set node_id [dict get $node_info node_id]
 
         if { $name eq "" } {
-            set subsite_name $node(instance_name)
+            set subsite_name [dict get $node_info instance_name]
         } else {
             set subsite_name $name
         }