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.23.2.1 -r1.23.2.2
--- openacs-4/packages/categories/tcl/widget-procs.tcl	10 Sep 2015 08:30:19 -0000	1.23.2.1
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	18 Sep 2015 08:01:09 -0000	1.23.2.2
@@ -126,7 +126,7 @@
 
     foreach mapped_tree $mapped_trees {
 	lassign $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p widget
-	set tree_name [ad_quotehtml [lang::util::localize $tree_name]]
+	set tree_name [ns_quotehtml [lang::util::localize $tree_name]]
 	set one_tree [list]
 
         if { $require_category_p == "t" } { 
@@ -137,7 +137,7 @@
 
 	foreach category [category_tree::get_tree -subtree_id $subtree_id $tree_id] {
 	    lassign $category category_id category_name deprecated_p level
-	    set category_name [ad_quotehtml [lang::util::localize $category_name]]
+	    set category_name [ns_quotehtml [lang::util::localize $category_name]]
 	    if { $level>1 } {
 		set category_name "[string repeat " " [expr {2*$level -4}]]..$category_name"
 	    }