diff --git a/member2-record.scm b/member2-record.scm
index 10760fd..1b89d09 100644
--- a/member2-record.scm
+++ b/member2-record.scm
@@ -66,6 +66,12 @@
 		 '((file-name . "1234")
 		   (file-path . "members/1234")
 		   (symlinks "member")))
+    (test-equal? make-member-record
+		 (make-member-record "1234" "members/1234" '("member") #:id 1234)
+		 '((id . 1234)
+		   (file-name . "1234")
+		   (file-path . "members/1234")
+		   (symlinks "member")))
     ))
 
  )