diff --git a/bank-fio.scm b/bank-fio.scm
index 4fa6dc8..815ecb8 100644
--- a/bank-fio.scm
+++ b/bank-fio.scm
@@ -46,7 +46,7 @@
 		  (irregex-replace (irregex "," 'u)
 				   (caddr row)
 				   ".")))
-	 (currency (cadddr row))
+	 (currency (string->symbol (cadddr row)))
 	 (varsym (list-ref row 9)))
      (make-bank-transaction id date amount currency varsym)))
 
diff --git a/members-payments.scm b/members-payments.scm
index fe166a2..a21bec3 100644
--- a/members-payments.scm
+++ b/members-payments.scm
@@ -96,7 +96,13 @@
 
  ;; Total amount paid
  (define (member-payments-total mr)
-   (foldl + 0 (map bank-transaction-amount
+   (foldl + 0 (map (lambda (tr)
+		     (let ((amount (bank-transaction-amount tr))
+			   (currency (bank-transaction-currency tr)))
+		       (case currency
+			 ((CZK) amount)
+			 ((EUR) (* amount 25))
+			 (else 0))))
 		   (member-payments mr))))
 
  )