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 -r1.24
--- openacs-4/packages/categories/tcl/widget-procs.tcl	27 Oct 2014 16:41:11 -0000	1.23
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	7 Aug 2017 23:48:05 -0000	1.24
@@ -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"
 	    }
@@ -293,3 +293,9 @@
 
     return $values
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: