diff --git a/src/Makefile b/src/Makefile
index ae2f2ce..df7c5d4 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -336,7 +336,7 @@ util-format.import.scm: $(UTIL-FORMAT-SOURCES)
 
 BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.import.scm	\
 	brmember.import.scm bank-account.import.scm			\
-	members-fees.import.scm
+	members-fees.import.scm members-payments.import.scm
 
 brmember-format.o: brmember-format.import.scm
 brmember-format.import.scm: $(BRMEMBER-FORMAT-SOURCES)
diff --git a/src/brmember-format.scm b/src/brmember-format.scm
index 7a29ee9..2420421 100644
--- a/src/brmember-format.scm
+++ b/src/brmember-format.scm
@@ -38,7 +38,8 @@
 	 util-dict-list
 	 brmember
 	 bank-account
-	 members-fees)
+	 members-fees
+	 members-payments)
 
  ;; Member formatting function for general use.
  (define (brmember-format fmt mr)
@@ -73,6 +74,8 @@
 			      (sprintf "~A" (member-fees-total mr)))
 			     ((#\C) ; Total credit manually written
 			      (sprintf "~A" (member-credit-total mr)))
+			     ((#\P) ; Total payments made
+			      (sprintf "~A" (member-payments-total mr)))
 			     ((#\~) "~"))
 			   resl))
 	       (loop (cdr fmtl)