diff --git a/bank-fio.scm b/bank-fio.scm
index e0e1cc1..35a6b28 100644
--- a/bank-fio.scm
+++ b/bank-fio.scm
@@ -38,11 +38,18 @@
 	 csv-simple
 	 progress)
 
+ ;; Conversion of Fio date to ISO
+ (define (fio-date->iso str)
+   (string-intersperse
+    (reverse
+     (string-split str "."))
+    "-"))
+
  ;; Converts Fio account statement transaction row into standardized
  ;; bank transaction structure.
  (define (make-fio-transaction row)
    (let ((id (string->number (car row)))
-	 (date (cadr row))
+	 (date (fio-date->iso (cadr row)))
 	 (amount (string->number
 		  (string-translate* (caddr row)
 				     '(("," . ".")))))