Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -r1.38.2.6 -r1.38.2.7
--- openacs-4/packages/categories/tcl/categories-procs.tcl	26 Apr 2019 16:27:39 -0000	1.38.2.6
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	26 Apr 2019 16:38:47 -0000	1.38.2.7
@@ -358,19 +358,19 @@
     @param category_id category to be flushed.
     @author Timo Hentschel (timo@timohentschel.de)
 } {
+    set translations [list]
     db_foreach flush_translation_cache {
         select t.locale, t.name, c.tree_id
         from category_translations t, categories c
         where t.category_id = :category_id
         and t.category_id = c.category_id
     } {
-        set cat_lang($locale) $name
+        lappend translations $locale $name
     }
-    if {[info exists cat_lang]} {
-        nsv_set categories $category_id [list $tree_id [array get cat_lang]]
-    } else {
-        nsv_set categories $category_id ""
+    if {[llength $translations] > 0} {
+        set translations [list $tree_id $translations]
     }
+    nsv_set categories $category_id $translations
 }
 
 ad_proc -public category::get_name {