diff --git a/src/members-print.scm b/src/members-print.scm
index e60f112..562941a 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -137,7 +137,9 @@
 				(list (ansi-string #:red #:bold (symbol->string k))
 				      (ansi-string #:red #:bold "---")))))))
 		     sikeys))
-	  (result (filter identity (append head body))))
+	  (mailman (list (list "Mailing Lists"
+			       (string-intersperse (member-mailman mr) ", "))))
+	  (result (filter identity (append head body mailman))))
      (table->string result #:table-border #f #:row-border #t #:col-border #t #:ansi #t)))
 
  ;; Prints nicely formatted table