diff --git a/src/brmember-parser.scm b/src/brmember-parser.scm
index af1fd3e..396f9a9 100644
--- a/src/brmember-parser.scm
+++ b/src/brmember-parser.scm
@@ -117,7 +117,7 @@
 				      (let* ((fr (string-first+rest (car rec)))
 					     (amt (string->number (car fr)))
 					     (msg (cdr fr)))
-					(cons amt msg)))
+					(list amt "--" msg)))
 				    value)))
 	   ((nick)
 	    (let ((mr0 (brmember-sub-set mr output key (car value))))
diff --git a/src/members-print.scm b/src/members-print.scm
index cd4a954..e9124b1 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -87,7 +87,7 @@
 	  (body (map (lambda (k)
 		       (let ((v (ldict-ref info k)))
 			 (case k
-			   ((card desfire credit)
+			   ((card desfire)
 			    (list k 
 				  (table->string
 				   (map
@@ -95,6 +95,10 @@
 				      (list (car c) (cdr c)))
 				    v)
 				   #:col-border #t)))
+			   ((credit)
+			    (list k 
+				  (table->string v
+				   #:col-border #t)))
 			   ((suspend student member)
 			    (list k
 				  (table->string