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.4 -r1.5
--- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	10 Sep 2002 22:22:07 -0000	1.4
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	14 Sep 2002 17:30:43 -0000	1.5
@@ -283,11 +283,11 @@
 } {
     Returns the ANSI date for the previous month
 } {
-    if {$month == 12} {
-      set year [expr $year + 1]
-      set month 01
+    if {$month == 1} {
+      set year [expr $year - 1]
+      set month 12
     } else {
-      set month [expr $month + 1]
+      set month [expr $month - 1]
     }
 
     return [clock format [clock scan $year-$month-01] -format %B]