diff --git a/src/members-print.scm b/src/members-print.scm
index 38cd17d..5df5338 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -391,8 +391,9 @@
        )
      ))
 
- (define (unpaired-table mb)
-   (table->list
+ (define (unpaired-table mb . args)
+   (apply
+    table->list
     (cons
      (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
      (map
@@ -409,7 +410,8 @@
 	      ))
       (mbase-unpaired mb)))
     #:row0-border #t
-    #:col-border #t))
+    #:col-border #t
+    args))
 
  ;; Prints all transactions which the members base considers unpaired.
  (define (print-unpaired-table mb)
diff --git a/src/notifications.scm b/src/notifications.scm
index 81322ab..77de65c 100644
--- a/src/notifications.scm
+++ b/src/notifications.scm
@@ -131,8 +131,7 @@
 	       (append
 		(list ""
 		      "Unpaired transactions:")
-		(parameterize ((*table-border-style* 'ascii))
-		  (unpaired-table mb))))))
+		(unpaired-table mb #:border-style 'ascii)))))
      (append income-lst
 	     unpaired-lst)))