diff --git a/Makefile b/Makefile
index bd4c10b..fcd4ad3 100644
--- a/Makefile
+++ b/Makefile
@@ -191,7 +191,8 @@ table.so: table.o
 table.o: table.import.scm
 table.import.scm: $(TABLE-SOURCES)
 
-CARDS-SOURCES=cards.scm dictionary.import.scm members-base.import.scm
+CARDS-SOURCES=cards.scm dictionary.import.scm members-base.import.scm	\
+	member-record.import.scm
 
 cards.so: cards.o
 cards.o: cards.import.scm
diff --git a/cards.scm b/cards.scm
index 19d288c..462b1dd 100644
--- a/cards.scm
+++ b/cards.scm
@@ -39,6 +39,7 @@
 	 members-base
 	 member-record)
 
+ ;; Prints single card type records.
  (define (cards-print/type mb type)
    (let* ((rmb (filter-members-by-predicate
 		mb
@@ -73,10 +74,12 @@
 		 (cloop (cdr cards)))))
 	   (uloop (cdr srecs)))))))
 
+ ;; Exports single card type records for all members to given file.
  (define (cards-export/type mb type fname)
    (parameterize ((current-output-port (open-output-file fname)))
      (cards-print/type mb type)))
 
+ ;; Exports cards and desfires to the files specified.
  (define (cards-export mb cardsfn desfirefn)
    (cards-export/type mb 'card cardsfn)
    (cards-export/type mb 'desfire desfirefn))