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 -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	14 May 2007 20:30:26 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	29 Aug 2007 13:53:40 -0000	1.10
@@ -156,7 +156,7 @@
     # take care of cases like 09 for month
     regsub "^0" $month "" month
     for {set i 0} {$i < 12} {incr i} {
-	if { $i == [expr {$month - 1}] } {
+	if { $month ne "" && $i == [expr {$month - 1}] } {
 	    append output "<option selected=\"selected\"> [lindex $NS(months) $i]</option>\n"
 	} else {
 	    append output "<option>[lindex $NS(months) $i]</option>\n"