Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	2 Sep 2002 15:18:30 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	28 Apr 2003 23:48:00 -0000	1.4.2.1
@@ -208,7 +208,7 @@
             set value [lindex $opt 0]
             if { (!$multiple && [string compare $value $default] == 0) 
                  || ($multiple && [lsearch -exact $default $value] > -1)} {
-                append retval "<option selected=\"selected\" value=\"$value\">$item</option>\n"
+                append retval "<option selected value=\"$value\">$item</option>\n"
             } else {
                 append retval "<option value=\"$value\">$item</option>\n"
             }