diff --git a/brmsaptool.scm b/brmsaptool.scm
index c6fa138..74a0967 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -353,11 +353,18 @@
 	(loop (convert-member-key:markers->periods m (car ks))
 	      (cdr ks)))))
 
+;; Fills-in the defaults
+(define (make-default-member-info)
+  (dict-set
+   (make-dict)
+   'joined
+   "2015-01"))
+
 ;; Processes all lines and returns a dictionary representing given
 ;; member.
 (define (parse-member-lines ls)
   (let loop ((ls ls)
-	     (r (make-dict)))
+	     (r (make-default-member-info)))
     (if (null? ls)
 	(convert-member-keys:markers->periods r 'suspend 'student)
 	(let ((p (parse-member-line (car ls))))