diff --git a/member-parser.scm b/member-parser.scm
index ba89f9b..a602429 100644
--- a/member-parser.scm
+++ b/member-parser.scm
@@ -97,8 +97,14 @@
 				      (string-first+rest (car rec)))
 				    value)))
 	   ((credit)
-	    ;; TODO
-	    mr)
+	    (member-record-sub-set mr output key
+				   (map
+				    (lambda (rec)
+				      (let* ((fr (string-first+rest (car rec)))
+					     (amt (string->number (car fr)))
+					     (msg (cdr fr)))
+					(cons amt msg)))
+				    value)))
 	   (else
 	    (member-record-sub-set mr output key (car value))))))))