Index: date-utilities.scm
===================================================================
--- date-utilities.scm	(revision 17639)
+++ date-utilities.scm	(working copy)
@@ -610,12 +610,12 @@
   (let ((now (localtime (current-time))))
     (if (< (tm:mon now) 3)
 	(begin
-	  (set:tm-month now (+ (tm:mon now) 12))
+	  (set:tm-mon now (+ (tm:mon now) 12))
 	  (set:tm-year now  (- (tm:year now) 1))))
-    (set:tm-month now (- (tm:mon now) 3))
-    (let ((month-days) (gnc:days-in-month (+ (tm:mon now) 1)
-                                          (+ (tm:year now) 1900)))
-      (if (> (month-days) (tm:mday now))
+    (set:tm-mon now (- (tm:mon now) 3))
+    (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
+                                         (+ (tm:year now) 1900)))))
+      (if (> month-days (tm:mday now))
 	  (set-tm:mday now month-days))
       (set-tm:isdst now -1)
       (gnc:date->timepair now))))
@@ -624,12 +624,12 @@
   (let ((now (localtime (current-time))))
     (if (< (tm:mon now) 6)
 	(begin
-	  (set:tm-month now (+ (tm:mon now) 12))
+	  (set:tm-mon now (+ (tm:mon now) 12))
 	  (set:tm-year now  (- (tm:year now) 1))))
-    (set:tm-month now (- (tm:mon now) 6))
-    (let ((month-days) (gnc:days-in-month (+ (tm:mon now) 1)
-                                          (+ (tm:year now) 1900)))
-      (if (> (month-days) (tm:mday now))
+    (set:tm-mon now (- (tm:mon now) 6))
+    (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
+                                         (+ (tm:year now) 1900))))
+      (if (> month-days (tm:mday now))
 	  (set-tm:mday now month-days))
       (set-tm:isdst now -1)
       (gnc:date->timepair now))))
@@ -637,9 +637,9 @@
 (define (gnc:get-one-year-ago)
   (let ((now (localtime (current-time))))
     (set:tm-year now (- (tm:year now) 1))
-    (let ((month-days) (gnc:days-in-month (+ (tm:mon now) 1)
-                                          (+ (tm:year now) 1900)))
-      (if (> (month-days) (tm:mday now))
+    (let ((month-days (gnc:days-in-month (+ (tm:mon now) 1)
+                                          (+ (tm:year now) 1900))))
+      (if (> month-days (tm:mday now))
 	  (set-tm:mday now month-days))
       (set-tm:isdst now -1)
       (gnc:date->timepair now))))
