diff --git a/src/bbstool.scm b/src/bbstool.scm
index 11fc8f4..1f2a6b8 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -64,6 +64,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 (define -run-tests?- (make-parameter #f))
 (define -web-dir- (make-parameter #f))
 (define -bank-dir- (make-parameter #f))
+(define -cards-enabled- (make-parameter #t))
 
 ;; Arguments parsing
 (command-line
@@ -81,6 +82,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  "Configuration options:"
  (-members (dir) "Members base directory" (*members-directory* dir))
  (-month (YYYY-MM) "Specify current month"
+	 (-cards-enabled- #f)
 	 (*current-month* (string->month YYYY-MM)))
  (-tstyle (style) "Use given table style: debug, ascii, unicode"
 	  (*table-border-style* (string->symbol style)))
@@ -212,7 +214,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (print "New member id: " (gen-member-id MB))
    (newline))
   ((gencards)
-   (apply cards-export MB (-fname-)))
+   (if (-cards-enabled-)
+       (apply cards-export MB (-fname-))
+       (print "Cards export disabled with manually specified current month.")))
   ((problems)
    (let ((num (let loop ((mb (members-base-members MB))
 			 (num 0))