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.62 -r1.63
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	28 Nov 2018 16:37:46 -0000	1.62
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	28 Nov 2018 16:41:45 -0000	1.63
@@ -777,9 +777,7 @@
 
     @author Peter Marklund
 } {
-    array set main_node [site_node::get_from_url -url "/"]
-
-    return $main_node(object_id)
+    return [dict get [site_node::get_from_url -url "/"] object_id]
 }
 
 ad_proc -public subsite::get_theme_options {} {