diff --git a/member-print.scm b/member-print.scm
index e674667..0b47574 100644
--- a/member-print.scm
+++ b/member-print.scm
@@ -117,17 +117,13 @@
 					  v))
 				   #:col-border #t)))
 			   (else
-			    (list k v)))))
+			    (if v
+				(list k v)
+				(list (ansi-string #:red #:bold (symbol->string k))
+				      (ansi-string #:red #:bold "---")))))))
 		     sikeys))
-	  (misskeys (member-missing-keys mr))
-	  (miss (if (null? misskeys)
-		    '()
-		    (list (list "Missing keys:"
-				(string-intersperse
-				 (map symbol->string misskeys)
-				 ", ")))))
-	  (result (filter identity (append head body miss))))
-     (print (table->string result #:table-border #t #:row-border #t #:col-border #t))))
+	  (result (filter identity (append head body))))
+     (print (table->string result #:table-border #t #:row-border #t #:col-border #t #:ansi #t))))
 
  ;; Nicely prints the member source with any errors recorded.
  (define (print-member-source mr)