diff --git a/bbstool.scm b/bbstool.scm
index 18fdb5c..be27861 100644
--- a/bbstool.scm
+++ b/bbstool.scm
@@ -173,7 +173,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   ((problems)
    (let loop ((mb MB))
      (when (not (null? mb))
-       (when (not (member-valid? (car mb)))
+       (when (member-has-issues? (car mb))
 	 (newline)
 	 (print-member-table (car mb))
 	 (print-member-source (car mb)))
diff --git a/member-parser.scm b/member-parser.scm
index 07899a3..0c87410 100644
--- a/member-parser.scm
+++ b/member-parser.scm
@@ -63,12 +63,15 @@
 			    'student
 			    'suspend)))
 	      (foldl (lambda (mr value)
-		       (member-record-sub-prepend
-			mr output kind
-			(let* ((mspec (string-first+rest (car value)))
-			       (month (string->month (car mspec)))
-			       (comment (cdr mspec)))
-			  (list marker month (cdr value) comment))))
+		       (let* ((mspec (string-first+rest (car value)))
+			      (month (string->month (car mspec)))
+			      (comment (cdr mspec)))
+			 (if month
+			     (member-record-sub-prepend
+			      mr output kind
+			      (list marker month (cdr value) comment))
+			     (member-record-add-highlight
+			      mr (cdr value) "Invalid month specification" 3 'error))))
 		     mr value)))
 	   (else
 	    (member-record-sub-set mr output key value)))))