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 -r1.54 -r1.55
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	30 Apr 2018 08:51:11 -0000	1.54
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	9 May 2018 15:33:28 -0000	1.55
@@ -399,7 +399,7 @@
 } {
     @return the object type hierarchy for the given object type from ancestor_type to object_type
 } {
-    set path_list {}
+    set path_list [list]
 
     set type_list [db_list select_object_type_path {}]
 
@@ -624,14 +624,14 @@
     Defines the page flow structure.
 } {
     # This is where the page flow structure is defined
-    set subsections {}
+    set subsections [list]
     lappend subsections home {
         label "Home"
         url ""
     }
 
 
-    set pageflow {}
+    set pageflow [list]
 
     if {$url eq ""} {
         set subsite_url [subsite::get_element -element url]
@@ -1286,7 +1286,7 @@
     @see subsite::util::packages
 } {
     # need to strip nodes which have no mounted package...
-    set packages {}
+    set packages [list]
     foreach package [site_node::get_children -all -node_id $node_id -element package_id] {
         if {$package ne ""} {
             lappend packages $package