Load specsym.

src/bank-account.scm

@@ -74,18 +74,19 @@
 	 (cdr account)))
 
  ;; Creates a new bank transaction.
- (define-record bank-transaction id date amount currency varsym message type account bank)
+ (define-record bank-transaction id date amount currency varsym message type account bank specsym)
 
  (set-record-printer! bank-transaction
 		      (lambda (tr out)
-			(fprintf out "#<transaction ~A ~A ~A ~A ~A ~A ~A>"
+			(fprintf out "#<transaction ~A ~A ~A ~A ~A ~A ~A ~A>"
 				 (bank-transaction-id tr)
 				 (bank-transaction-date tr)
 				 (bank-transaction-amount tr)
 				 (bank-transaction-currency tr)
 				 (bank-transaction-varsym tr)
 				 (bank-transaction-message tr)
-				 (bank-transaction-type tr))))
+				 (bank-transaction-type tr)
+				 (bank-transaction-specsym tr))))
 
  ;; Returns true if given acc/bc is in the list of accounts
  (define (bank-accounts-member? bas acc bc)

src/bank-fio.scm

@@ -58,9 +58,10 @@
 	 (message (list-ref row 12))
 	 (type (list-ref row 13))
 	 (bank (list-ref row 6))
-	 (account (list-ref row 4)))
+	 (account (list-ref row 4))
+	 (specsym (list-ref row 10)))
      (make-bank-transaction id date amount currency varsym message type
-			    account bank)))
+			    account bank specsym)))
 
  ;; Loads Fio bank accound statement.
  (define (bank-fio-parse fn)