diff --git a/member-record.scm b/member-record.scm
index 1207d43..78a2e8c 100644
--- a/member-record.scm
+++ b/member-record.scm
@@ -63,6 +63,9 @@
 
   member<?
 
+  member-record-add-payment
+  member-payments
+
   member-record-tests!
   )
 
@@ -332,6 +335,16 @@
    (string-ci<? (member-nick a)
 		(member-nick b)))
 
+ ;; Prepends new payment to given member record payments
+ (define (member-record-add-payment mr pt)
+   (dict-set mr 'payments
+	     (cons pt
+		   (dict-ref mr 'payments '()))))
+
+ ;; Returns  alist of member payments
+ (define (member-payments mr)
+   (dict-ref mr 'payments '()))
+
  ;; Self-tests
  (define (member-record-tests!)
    (run-tests