Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -N -r1.24.6.2 -r1.24.6.3
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	1 Oct 2013 08:36:53 -0000	1.24.6.2
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	2 Oct 2013 08:56:26 -0000	1.24.6.3
@@ -484,7 +484,7 @@
     string. 
 } {
     # Return immediately of the current view isn't month or year
-    if {[lsearch -exact [list month year] $view] == -1} {
+    if {$view ni [list month year]} {
 	return ""
     }
 
@@ -679,7 +679,7 @@
 
 	set months_list [dt_month_names]
 	set now         [clock scan $date]
-	set curr_month  [expr [dt_trim_leading_zeros [clock format $now -format "%m"]]-1]
+	set curr_month  [expr {[dt_trim_leading_zeros [clock format $now -format "%m"]] - 1}]
 
 	for {set i 0} {$i < 12} {incr i} {