diff --git a/brmsaptool.scm b/brmsaptool.scm
index 13009a1..62d7165 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -76,6 +76,7 @@
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
  (-mn (nick) "Specify member by nick" (-member-nick- nick))
  (-pi () "Print information" (-action- 'print-info))
+ (-stats () "Get stats for all months" (-action- 'print-stats))
  )
 
 ;; Load the members database (required for everything anyway)
@@ -98,4 +99,7 @@
    (if mr
        (print-member-record-info mr)
        (print-members-base-info MB))
-   (newline)))
+   (newline))
+  ((print-stats)
+   (print (members-base-stats MB)))
+  )
diff --git a/members-base.scm b/members-base.scm
index f49ebb2..d4b498e 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -33,6 +33,7 @@
   find-member-by-nick
   list-members-ids
   list-members-nicks
+  members-base-stats
   print-members-base-info
   members-base-tests!
   )
@@ -276,8 +277,9 @@
 			 (filter-members-by-predicate mb member-student?)))
 	  (di5 (dict-set di4 'destroyed
 			 (filter-members-by-predicate mb member-destroyed?)))
-	  (di6 (dict-set di5 'month (*current-month*))))
-     di6))
+	  (di6 (dict-set di5 'month (*current-month*)))
+	  (di7 (dict-set di6 'total mb)))
+     di7))
 
  ;; Returns a list two lists: keys, data.
  ;; Each data record contains values for all keys.
@@ -288,12 +290,12 @@
        (if (month<? month (*current-month*))
 	   (let ((bi (parameterize ((*current-month* month))
 		       (members-base-info mb))))
-	     (let kloop ((row '())
-			 (keys keys))
+	     (let kloop ((row (list (dict-ref bi 'month)))
+			 (keys (cdr keys)))
 	       (if (null? keys)
 		   (mloop (cons (reverse row) data)
 			  (month-add month 1))
-		   (kloop (cons (dict-ref bi (car keys)) row)
+		   (kloop (cons (length (dict-ref bi (car keys))) row)
 			  (cdr keys)))))
 	   (list keys (reverse data))))))
 
diff --git a/month.scm b/month.scm
index 0c12d46..ae376ed 100644
--- a/month.scm
+++ b/month.scm
@@ -113,17 +113,17 @@
  (define (month-diff f t)
    (if (month-valid? f)
        (if (month-valid? t)
-	   (let ((F (+ (* (car f) 12) (cadr f)))
-		 (T (+ (* (car t) 12) (cadr t))))
+	   (let ((F (+ (* (car f) 12) (cadr f) -1))
+		 (T (+ (* (car t) 12) (cadr t) -1)))
 	     (- T F))
 	   (error 'month-diff "Second argument is not a valid month" t))
        (error 'month-diff "First argument is not a valid month" f)))
 
  ;; Returns a month n months after the month m.
  (define (month-add m n)
-   (let ((mi (+ (* 12 (car m)) (cadr m) n)))
+   (let ((mi (+ (* 12 (car m)) (cadr m) n -1)))
      (list (quotient mi 12)
-	   (remainder mi 12))))
+	   (+ (remainder mi 12) 1))))
 
  ;; Performs self-tests of the month module.
  (define (month-tests!)