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.17 -r1.17.2.1
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	20 May 2011 08:26:58 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	5 Sep 2013 11:51:00 -0000	1.17.2.1
@@ -162,7 +162,7 @@
     # 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}] } {
+	if { $month ne "" && $i == $month - 1 } {
 	    append output "<option selected=\"selected\">[lindex $NS(months) $i]</option>\n"
 	} else {
 	    append output "<option>[lindex $NS(months) $i]</option>\n"