diff --git a/src/members-payments.scm b/src/members-payments.scm
index 73b2dbe..8191f68 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -273,9 +273,10 @@
  (define (brmember-balance-history mr)
    (let* ((mcal (calendar->balance-history (member-calendar mr)))
 	  (pmts (transactions->balance-history (brmember-payments mr)))
-	  (all (append mcal pmts))
-	  (all-sorted (sort all (lambda (a b)
-				  (cal-day<? (car a) (car b))))))
+	  (all-unsorted (append mcal pmts))
+	  (all (sort all-unsorted
+		     (lambda (a b)
+		       (cal-day<? (car a) (car b))))))
      (print all)
      '()))