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.61 -r1.62
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	28 Nov 2018 16:31:02 -0000	1.61
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	28 Nov 2018 16:37:46 -0000	1.62
@@ -354,8 +354,8 @@
         set subsite_id [ad_conn subsite_id]
     }
 
-    subsite::get -subsite_id $subsite_id -array subsite_info
-    set result $subsite_info($element)
+    set subsite [subsite::get -subsite_id $subsite_id]
+    set result [dict get $subsite $element]
 
     if { $notrailing_p && [string match $element "url"]} {
         set result [string trimright $result "/"]