Index: openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl,v
diff -u -N -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	10 Sep 2015 08:21:26 -0000	1.8.2.1
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	18 Sep 2015 07:41:03 -0000	1.8.2.2
@@ -42,7 +42,7 @@
 
             if { [info exists values($value)] } {
                 lappend selected_list $label
-                append output "<input type=\"hidden\" name=\"$element(name)\" value=\"[ad_quotehtml $value]\">"
+                append output "<input type=\"hidden\" name=\"$element(name)\" value=\"[ns_quotehtml $value]\">"
             }
         }
 
@@ -66,7 +66,7 @@
             set label [lindex $option 0]
             set value [lindex $option 1]
 
-            set value [ad_quotehtml $value]
+            set value [ns_quotehtml $value]
             append output " <option lang=\"[string range $value 0 1]\" value=\"$value\""
             if { [info exists values($value)] } {
                 append output " selected=\"selected\""