diff --git a/src/members-payments.scm b/src/members-payments.scm
index dbf01e4..bed6cd2 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -120,15 +120,12 @@
 
  ;; Reads the accounts list, returns '() upon error.
  (define (load-accounts-list apikeys)
-   (call/cc
-    (lambda (ret)
-      (with-exception-handler
-       (lambda (ex)
-	 (ret '()))
-       (lambda ()
-	 (map (compose car string-split)
-	      (read-lines
-	       (open-input-file apikeys))))))))
+   (handle-exceptions
+    ex
+    '()
+    (map (compose car string-split)
+	 (read-lines
+	  (open-input-file apikeys)))))
 
  ;; Loads all accounts - it expects .csv files in given directory.
  (define (load-accounts accounts-list dir)