diff --git a/brmsaptool.scm b/brmsaptool.scm
index 7491755..480728f 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -59,6 +59,7 @@
 (define -member-id- (make-parameter #f))
 (define -member-nick- (make-parameter #f))
 (define -action- (make-parameter #f))
+(define -fname- (make-parameter #f))
 
 ;; Arguments parsing
 (command-line
@@ -76,7 +77,9 @@
  (-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))
+ (-stats (fname) "Get stats for all months"
+	 (-action- 'print-stats)
+	 (-fname- fname))
  )
 
 ;; Load the members database (required for everything anyway)
@@ -102,6 +105,7 @@
    (newline))
   ((print-stats)
    (newline)
-   (print-members-base-stats
-    (members-base-stats MB)))
+   (parameterize ((current-output-port (open-output-file (-fname-))))
+     (print-members-base-stats
+      (members-base-stats MB))))
   )