Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -N -r1.198 -r1.199
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	28 Mar 2018 08:02:49 -0000	1.198
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	25 Apr 2018 19:47:47 -0000	1.199
@@ -159,9 +159,9 @@
     
     if {$csv_list ne ""} {
         set page_name_and_layout_list [split [string trimright $csv_list ";"] ";"]
-        set page_name_list [list]
-        set page_accesskey_list [list]
-        set layout_name_list [list]
+        set page_name_list {}
+        set page_accesskey_list {}
+        set layout_name_list {}
 
         # separate name and layout
         foreach item $page_name_and_layout_list {
@@ -884,7 +884,7 @@
             -page_id [ns_set get $form page_id] \
             -element_id [ns_set get $form element_id]
     } elseif { [ns_set get $form "op_hide"] ne "" } {
-        set element_id_list [list]
+        set element_id_list {}
 
         # iterate through the set, destructive!
         while { [ns_set find $form "element_id"] + 1 } {
@@ -1121,7 +1121,7 @@
     @return Tcl list of the pages
     @param portal_id
 } {
-    set foo [list]
+    set foo {}
 
     db_foreach list_pages_tcl_list_select {} {
         lappend foo $page_id
@@ -1147,7 +1147,7 @@
     @param link the relative link to set for hrefs
     @param current_page_link f means that there is no link for the current page
 } {
-    set ad_dim_struct [list]
+    set ad_dim_struct {}
 
     db_foreach list_page_nums_select {} {
         lappend ad_dim_struct [list $page_num $pretty_name [list]]