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.7 -r1.7.8.1
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	11 Dec 2008 16:18:39 -0000	1.7
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	13 Sep 2013 12:08:13 -0000	1.7.8.1
@@ -66,7 +66,7 @@
             set label [lindex $option 0]
             set value [lindex $option 1]
 
-            set value [template::util::quote_html $value]
+            set value [ad_quotehtml $value]
             append output " <option lang=\"[string range $value 0 1]\" value=\"$value\""
             if { [info exists values($value)] } {
                 append output " selected=\"selected\""