Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v diff -u -N -r1.42.6.2 -r1.42.6.3 --- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 1 Oct 2013 08:36:53 -0000 1.42.6.2 +++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 2 Oct 2013 08:56:26 -0000 1.42.6.3 @@ -215,7 +215,7 @@ # Count the num of events at the hours of operations for {set i 0} {$i <= $hours_diff} {incr i} { set the_hour [expr {$hour + $i}] - set n_events($the_hour) [expr $n_events([expr {$the_hour - $i}]) + 1] + set n_events($the_hour) [expr {$n_events([expr {$the_hour - $i}]) + 1}] } } }