Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -r1.31.2.10 -r1.31.2.11
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	26 Apr 2019 13:44:03 -0000	1.31.2.10
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	26 Apr 2019 13:57:31 -0000	1.31.2.11
@@ -505,19 +505,16 @@
         @param tree_id category tree to be flushed.
         @author Timo Hentschel (timo@timohentschel.de)
     } {
+        set translations [list]
         db_foreach flush_translation_cache {
 	    select locale, name, description
 	    from category_tree_translations
 	    where tree_id = :tree_id
 	    order by locale
         } {
-            set tree_lang($locale) [list $name $description]
+            lappend translations $locale [list $name $description]
         }
-        if {[info exists tree_lang]} {
-            nsv_set category_tree_translations $tree_id [array get tree_lang]
-        } else {
-            nsv_set category_tree_translations $tree_id ""
-        }
+        nsv_set category_tree_translations $tree_id $translations
     }
 
     ad_proc -public get_translation {