Index: openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl	30 Apr 2018 12:45:00 -0000	1.4
+++ openacs-4/packages/calendar-portlet/tcl/test/calendar-portlet-procs.tcl	22 May 2018 16:44:55 -0000	1.5
@@ -48,7 +48,7 @@
         # Get Start and End date Week
         set date [template::util::date::today]
         set year [template::util::date::get_property year $date]
-        set number_week [expr [clock format [clock scan now] -format %W]-1]
+        set number_week [expr {[clock format [clock scan now] -format %W]-1}]
 
         set start_end_date_week [calendar_portlet::twt::get_start_end_week_date $number_week $year]