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 -N -r1.38.2.5 -r1.38.2.6
--- openacs-4/packages/categories/tcl/categories-procs.tcl	26 Apr 2019 16:21:57 -0000	1.38.2.5
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	26 Apr 2019 16:27:39 -0000	1.38.2.6
@@ -441,12 +441,9 @@
     @return list of names corresponding to the list of category_id's supplied.
     @author Timo Hentschel (timo@timohentschel.de)
 } {
-    set result [list]
-    foreach category_id $category_ids {
-        lappend result [category::get_name $category_id $locale]
-    }
-    return $result
+    return [lmap category_id $category_ids {category::get_name $category_id $locale}]
 }
+
 ad_proc -public category::get_children {
     -category_id:required
 } {