Index: openacs-4/packages/content-portlet/misc/portlets/ges-categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-portlet/misc/portlets/ges-categories.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/content-portlet/misc/portlets/ges-categories.tcl	24 Oct 2007 22:50:25 -0000	1.1
+++ openacs-4/packages/content-portlet/misc/portlets/ges-categories.tcl	25 Apr 2018 19:47:47 -0000	1.2
@@ -34,7 +34,7 @@
     if {!$no_tree_name} {
       append content "<h3>$my_tree_name</h3>"
     }
-    set categories [list]
+    set categories {}
     set pos 0
     set cattree(0) [::xowiki::CatTree new -volatile -orderby pos -name $my_tree_name]
     foreach category_info [category_tree::get_tree $tree_id] {