Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.133.2.11 -r1.133.2.12
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	9 Sep 2013 18:23:36 -0000	1.133.2.11
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	10 Sep 2013 06:56:28 -0000	1.133.2.12
@@ -446,9 +446,9 @@
 
     foreach option $options {
 	if { [lindex $option $value_index] in $select_option } {
-	    append select_options "<option value=\"[util_quote_double_quotes [lindex $option $value_index]]\" selected=\"selected\">[lindex $option $option_index]</option>\n"
+	    append select_options "<option value=\"[ad_quotehtml [lindex $option $value_index]]\" selected=\"selected\">[lindex $option $option_index]</option>\n"
 	} else {
-	    append select_options "<option value=\"[util_quote_double_quotes [lindex $option $value_index]]\">[lindex $option $option_index]</option>\n"
+	    append select_options "<option value=\"[ad_quotehtml [lindex $option $value_index]]\">[lindex $option $option_index]</option>\n"
 	}
     }
     return $select_options