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.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	23 Dec 2008 12:23:00 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	1 Jan 2009 14:06:10 -0000	1.13
@@ -152,12 +152,12 @@
     }
 
     set output "<select name=\"$column.month\">\n"
-    append output "<option>\n"
+
     # take care of cases like 09 for month
     regsub "^0" $month "" month
     for {set i 0} {$i < 12} {incr i} {
 	if { $month ne "" && $i == [expr {$month - 1}] } {
-	    append output "<option selected=\"selected\"> [lindex $NS(months) $i]</option>\n"
+	    append output "<option selected=\"selected\">[lindex $NS(months) $i]</option>\n"
 	} else {
 	    append output "<option>[lindex $NS(months) $i]</option>\n"
 	}