diff --git a/bbstool.scm b/bbstool.scm
index 632e700..47aaa8e 100644
--- a/bbstool.scm
+++ b/bbstool.scm
@@ -85,7 +85,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  (-tstyle (style) "Use given table style: debug, ascii, unicode"
 	  (*table-border-style* (string->symbol style)))
  (-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files"
-	    (-action- 'export-cards)
+	    (-action- 'gencards)
 	    (-fname- (list file:cards file:desfires)))
  )
 
@@ -154,4 +154,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (newline)
    (print "New member id: " (gen-member-id MB))
    (newline))
+  ((gencards)
+   (apply cards-export MB (-fname-)))
   )
diff --git a/cards.scm b/cards.scm
index e62a577..f4eb440 100644
--- a/cards.scm
+++ b/cards.scm
@@ -33,7 +33,11 @@
 
  (import scheme)
 
- (define (cards-export mb cardsfn desfirefn)
+ (define (cards-export/type mb type fname)
    #f)
 
+ (define (cards-export mb cardsfn desfirefn)
+   (cards-export/type mb 'cards cardsfn)
+   (cards-export/type mb 'desfire desfirefn))
+
  )