Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/categories/tcl/widget-procs.tcl	3 May 2005 21:23:37 -0000	1.15
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	21 Jun 2005 10:48:59 -0000	1.16
@@ -96,7 +96,7 @@
 
     foreach mapped_tree $mapped_trees {
 	util_unlist $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p
-	set tree_name [ad_quotehtml $tree_name]
+	set tree_name [ad_quotehtml [lang::util::localize $tree_name]]
 	set one_tree [list]
 
         if { $require_category_p == "t" } { 
@@ -107,7 +107,7 @@
 
 	foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] {
 	    util_unlist $category category_id category_name deprecated_p level
-	    set category_name [ad_quotehtml $category_name]
+	    set category_name [ad_quotehtml [lang::util::localize $category_name]]
 	    if { $level>1 } {
 		set category_name "[string repeat " " [expr 2*$level -4]]..$category_name"
 	    }