Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	15 Dec 2006 22:45:20 -0000	1.29
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	15 May 2007 20:14:21 -0000	1.30
@@ -209,7 +209,8 @@
         set today_p f
     }
     set day_number [expr $current_day - $first_julian_date_of_month +1]
-    set weekday [expr [expr $current_day % 7] +1]
+    set weekday [expr [expr $current_day % 7] + 1]
+    set weekday [ad_decode $weekday 7 0 $weekday]
 
     set beginning_of_week_p f
     set end_of_week_p f