diff --git a/src/members-payments.scm b/src/members-payments.scm
index 650768b..dafdc83 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -132,7 +132,7 @@
 			       mb
 			       (filter identity
 				       accounts))))
-	       (members-base-update mb identity member-sort-payments))
+	       (members-base-update mbp identity member-sort-payments))
 	     (let ()
 	       (print "Warning: no accounts loaded!")
 	       mb)))