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 -r1.8 -r1.9
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	27 Oct 2014 16:39:37 -0000	1.8
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	7 Aug 2017 23:47:56 -0000	1.9
@@ -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\""
@@ -80,3 +80,9 @@
     return $output
 
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: