diff --git a/src/members-print.scm b/src/members-print.scm
index 47478dc..33d0869 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -576,10 +576,11 @@
 	   (let* ((fees (foldl + 0 (map (lambda (b) (ldict-ref b 'fees)) balances)))
 		  (credit (foldl + 0 (map (lambda (b) (ldict-ref b 'credit)) balances)))
 		  (payment (foldl + 0 (map (lambda (b) (ldict-ref b 'payment)) balances)))
-		  (total (- (+ credit payment) fees)))
+		  (total (- (+ credit payment) fees))
+		  (current-total (foldl + 0 (map (lambda (m) (list-ref m 7)) members))))
 	     (list (list (ansi-string #:bold "Total")
 			 ""
-			 ""
+			 (ansi-string "\t" #:bold (sprintf "~A" current-total))
 			 (ansi-string "\t" #:bold (sprintf "~A" fees))
 			 (ansi-string "\t" #:bold (sprintf "~A" credit))
 			 (ansi-string "\t" #:bold (sprintf "~A" payment))
diff --git a/src/texts.scm b/src/texts.scm
index 2bd8193..d6781f4 100644
--- a/src/texts.scm
+++ b/src/texts.scm
@@ -39,7 +39,7 @@
 	 (chicken format))
 
  ;; Short banner
- (define banner-line "HackerBase 1.16.2 (c) 2023-2024 Brmlab, z.s.")
+ (define banner-line "HackerBase 1.17-dev (c) 2023-2024 Brmlab, z.s.")
 
  ;; Banner source with numbers for ANSI CSI SGR
  (define banner-source "