Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v
diff -u -N -r1.47 -r1.48
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	10 Apr 2018 06:52:09 -0000	1.47
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	25 Apr 2018 19:47:48 -0000	1.48
@@ -136,7 +136,7 @@
     {-subtree_query ""}
     {-depth 3}
   } {
-    set folders [list]
+    set folders {}
 
     # safety belt, for recursive structures
     if {$depth < 1} {return $folders}
@@ -422,8 +422,8 @@
 
     set current_object [$node object]
     set current_item_id [$current_object item_id]
-    set sub_folders [list]
-    set remaining_folders [list]
+    set sub_folders {}
+    set remaining_folders {}
     
     foreach f $folders {
       if {[$f parent_id] ne $current_item_id} {