diff --git a/member-print.scm b/member-print.scm
index f338b64..bfa935e 100644
--- a/member-print.scm
+++ b/member-print.scm
@@ -45,7 +45,8 @@
 	 utils
 	 table
 	 listing
-	 ansi)
+	 ansi
+	 period)
 
  ;; Prints human-readable information
  (define (print-member-info mr)
@@ -109,8 +110,8 @@
 					 (map
 					  (lambda (p)
 					    (list
-					     (month->string (car p))
-					     (month->string (cdr p))))
+					     (month->string (period-since p))
+					     (month->string (period-before p))))
 					  v))
 				   #:col-border #t)))
 			   (else
diff --git a/period.scm b/period.scm
index 59c2f5d..d4ff340 100644
--- a/period.scm
+++ b/period.scm
@@ -28,6 +28,8 @@
 (module
  period
  (
+  period-since
+  period-before
   period-markers->periods
   periods-duration
   month-in-periods?