Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v diff -u -r1.41.2.1 -r1.41.2.2 --- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl 12 Sep 2015 11:06:02 -0000 1.41.2.1 +++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl 28 Oct 2016 20:31:56 -0000 1.41.2.2 @@ -327,7 +327,7 @@ set interval_def [template::util::date::defaultInterval day] for { set i [lindex $interval_def 0] } { $i <= 15 } { incr i 1 } { incr day - if { [expr {$day + $i}] >= [lindex $interval_def 1] } { + if { $day + $i >= [lindex $interval_def 1] } { incr month 1 set day 1 }