diff --git a/src/members-print.scm b/src/members-print.scm
index 211fd54..ef70c01 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -556,7 +556,7 @@
 	      (let ((total (list-ref member 5)))
 		(list (list-ref member 0)
 		      (list-ref member 1)
-		      (sprintf "\t~A" (list-ref member 5))
+		      (sprintf "\t~A" (list-ref member 7))
 		      (sprintf "\t~A" (list-ref member 2))
 		      (sprintf "\t~A" (list-ref member 3))
 		      (sprintf "\t~A" (list-ref member 4))