Index: openacs-4/packages/calendar/www/mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v
diff -u -r1.11 -r1.11.2.1
--- openacs-4/packages/calendar/www/mini-calendar.tcl	24 Feb 2004 16:13:45 -0000	1.11
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	13 May 2004 16:07:12 -0000	1.11.2.1
@@ -94,9 +94,9 @@
             set current_month_p t 
         } else {
             set current_month_p f
-            set target_date [clock format \
-                                 [clock scan "[expr $i-$curr_month_idx] month" -base $now] -format "%Y-%m-%d"]
         }
+        set target_date [clock format \
+                             [clock scan "[expr $i-$curr_month_idx] month" -base $now] -format "%Y-%m-%d"]
         multirow append months $month $current_month_p $new_row_p  \
             "[export_vars -base $base_url {{date $target_date} view}]${page_num}${url_stub_period_days}"