diff --git a/src/bank-account.scm b/src/bank-account.scm
index 2db6e1d..29f3c71 100644
--- a/src/bank-account.scm
+++ b/src/bank-account.scm
@@ -44,6 +44,7 @@
   bank-transaction-type
   bank-transaction-account
   bank-transaction-bank
+  bank-transaction-specsym
 
   bank-accounts-member?
   )
diff --git a/src/members-print.scm b/src/members-print.scm
index 5df5338..fbb5d00 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -395,7 +395,7 @@
    (apply
     table->list
     (cons
-     (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
+     (list "Id" "Date" "Amount" "" "VS" "SS" "Type" "Message" "Account" "Bank")
      (map
       (lambda (tr)
 	(list (bank-transaction-id tr)
@@ -403,6 +403,7 @@
 	      (sprintf "\t~A" (bank-transaction-amount tr))
 	      (bank-transaction-currency tr)
 	      (sprintf "\t~A" (bank-transaction-varsym tr))
+	      (sprintf "\t~A" (bank-transaction-specsym tr))
 	      (bank-transaction-type tr)
 	      (bank-transaction-message tr)
 	      (bank-transaction-account tr)