diff --git a/src/members-print.scm b/src/members-print.scm
index 360e316..211fd54 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -531,6 +531,10 @@
 			payment
 			total
 			balance
+			(let ((spec-fee (brmember-spec-fee mr)))
+			  (if spec-fee
+			      spec-fee
+			      "normal"))
 			)))
 	      raw-members))
 	    (balances (map (lambda (m)
@@ -552,8 +556,7 @@
 	      (let ((total (list-ref member 5)))
 		(list (list-ref member 0)
 		      (list-ref member 1)
-		      "---"
-		      
+		      (sprintf "\t~A" (list-ref member 5))
 		      (sprintf "\t~A" (list-ref member 2))
 		      (sprintf "\t~A" (list-ref member 3))
 		      (sprintf "\t~A" (list-ref member 4))