Index: openacs-4/packages/xowiki/tcl/category-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/category-procs.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/xowiki/tcl/category-procs.tcl	7 Aug 2017 23:48:30 -0000	1.28
+++ openacs-4/packages/xowiki/tcl/category-procs.tcl	25 Apr 2018 19:47:48 -0000	1.29
@@ -24,7 +24,7 @@
     set mapped_trees [expr {$have_locale ?
                             [category_tree::get_mapped_trees $object_id $locale] :
                             [category_tree::get_mapped_trees $object_id]}]
-    set trees [list]
+    set trees {}
     foreach tree $mapped_trees {
       lassign $tree tree_id my_tree_name ...
 
@@ -50,7 +50,7 @@
       # Get the values from info in "tree" into separate variables given by output.
       # Note, that the order matters!
       lassign $tree {*}$output
-      set l [list]
+      set l {}
       foreach __var $output {lappend l [set $__var]}
       lappend trees $l
     }