diff --git a/src/bank-fio.scm b/src/bank-fio.scm
index 1a09e46..3295f31 100644
--- a/src/bank-fio.scm
+++ b/src/bank-fio.scm
@@ -71,7 +71,7 @@
 		(bankrow (assoc "bankId" head))
 		(bank (if bankrow (cadr bankrow) "ERROR")))
 	   (make-bank-account num bank
-			      (map make-fio-transaction body)))
+			      (map make-fio-transaction (cdr body))))
 	 (let ()
 	   (print "Fio: cannot load account " fn)
 	   #f
diff --git a/src/bbstool.scm b/src/bbstool.scm
index f5a0cbf..101d717 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -47,7 +47,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	csv-simple
 	members-payments
 	web-static
-	environment)
+	environment
+	bank-account)
 
 ;; Print banner
 (print "bbstool 0.9 (c) 2023 Brmlab, z.s.")
@@ -125,6 +126,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	(-action- 'repl))
  (-edit () "Edit selected user"
 	(-action- 'edit))
+ (-unpaired () "Show latest unpaired bank transactions"
+	    (-needs-bank- #t)
+	    (-action- 'unpaired))
  )
 
 ;; Run tests
@@ -238,6 +242,15 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
        (edit-file (member-file-path mr))
        (print "No member to edit.")))
   ((no-op) (void))
+  ((unpaired)
+   (print
+    (table->string
+     (cons
+      (list "Id")
+      (map
+       (lambda (tr)
+	 (list (bank-transaction-id tr)))
+       (members-base-unpaired MB))))))
   (else
    (print "Nothing to do."))