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 -r1.2 -r1.3
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	23 Aug 2001 19:10:51 -0000	1.2
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	30 Aug 2001 01:04:51 -0000	1.3
@@ -799,9 +799,9 @@
     ns_set put $dt_info_set last_day \
         [dt_num_days_in_month $year $month]
     ns_set put $dt_info_set next_month \
-        [dt_next_month $year $month $day] 
+        [dt_next_month $year $month] 
     ns_set put $dt_info_set prev_month \
-        [dt_prev_month $year $month $day]
+        [dt_prev_month $year $month]
     ns_set put $dt_info_set beginning_of_year \
         $year-01-01
     ns_set put $dt_info_set days_in_last_month \
Index: openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	23 Aug 2001 19:10:30 -0000	1.2
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	30 Aug 2001 01:04:51 -0000	1.3
@@ -232,7 +232,6 @@
 ad_proc dt_next_month {
     year
     month
-    day
 } {
     Returns the ANSI date for the next month
 } {
@@ -243,13 +242,12 @@
       set month [expr $month + 1]
     }
 
-    return [clock format [clock scan $year-$month-$day] -format %Y-%m-%d]
+    return [clock format [clock scan $year-$month-01] -format %Y-%m-%d]
 }
 
 ad_proc dt_prev_month {
     year
     month
-    day
 } {
     Returns the ANSI date for the previous month
 } {
@@ -260,7 +258,7 @@
       set month [expr $month - 1]
     }
 
-    return [clock format [clock scan $year-$month-$day] -format %Y-%m-%d]
+    return [clock format [clock scan $year-$month-01] -format %Y-%m-%d]
 }
 
 ad_proc dt_next_month_name {