Error: call of non-procedure: #

	Call history:

		  [failure1866] (##core#begin (print "eduard does not know what to with '" (command-line-arguments) "'"))
		  [failure1866] (print "eduard does not know what to with '" (command-line-arguments) "'")
		  [failure1866] (command-line-arguments)
		  [failure1866] (lambda1957 () (match-next1958 v616 ((command-line-arguments) (set!618 (command-line-arguments)))))
		  [failure1866] (##core#lambda () (match-next1958 v616 ((command-line-arguments) (set!618 (command-line-arguments)))...
		  [failure1954] (##core#begin (error2018 (quote2019 match2020) "no matching pattern"))
		  [failure1954] (error2018 (quote2019 match2020) "no matching pattern")
		  [failure1954] (quote2019 match2020)
		  [failure1954] (##core#quote match2020)
		  (command-line-arguments)
		  (command-line-arguments)
		  (null?633 v616)
		  (failure622)
		  [failure622] (pair?658 v616)
		  [failure622] (null?659 (cdr660 v616))
		  [failure622] (cdr660 v616)
		  [failure622] (failure636)
		  [failure636] (pair?811 v616)
		  [failure636] (car814 v616)
		  [failure636] (cdr816 v616)
		  [failure636] (equal?833 w813 "help")
		  [failure636] (failure724)
		  [failure724] (pair?978 v616)
		  [failure724] (null?979 (cdr980 v616))
		  [failure724] (cdr980 v616)
		  [failure724] (failure956)
		  [failure956] (pair?1073 v616)
		  [failure956] (car1076 v616)
		  [failure956] (cdr1078 v616)
		  [failure956] (equal?1095 w1075 "transact")
		  [failure956] (failure1044)
		  [failure1044] (pair?1568 v616)
		  [failure1044] (null?1569 (cdr1570 v616))
		  [failure1044] (cdr1570 v616)
		  [failure1044] (failure1546)
		  [failure1546] (pair?1721 v616)
		  [failure1546] (car1724 v616)
		  [failure1546] (cdr1726 v616)
		  [failure1546] (equal?1743 w1723 "query")
		  [failure1546] (pair?1799 x1725)
		  [failure1546] (null?1800 (cdr1801 x1725))
		  [failure1546] (cdr1801 x1725)
		  [failure1546] (car1804 x1725)
		  [failure1546] (query specification)
		  [query] (equal?152 v126 "current-status")
		  [query] (null? latest-transaction-data)
		  [query] ((printf "Current amount:\t~A\n" (amount->string (first (exec (prepare-query query-statement-current......
		  [query] (printf "Current amount:\t~A\n" (amount->string (first (exec (prepare-query query-statement-current-......
		  [query] (amount->string (first (exec (prepare-query query-statement-current-status))))
		  [query] (first (exec (prepare-query query-statement-current-status)))
		  [query] (exec (prepare-query query-statement-current-status))
		  [query] (prepare-query query-statement-current-status)
		  [prepare-query] (sql database query-statement)
	sql-de-lite.scm:308: resurrect	  
	sql-de-lite.scm:253: finalized?	  
	sql-de-lite.scm:463: get-handle	  
	sql-de-lite.scm:445: lru-cache#lru-cache-capacity	  
	sql-de-lite.scm:448: lru-cache#lru-cache-ref	  
	sql-de-lite.scm:456: prepare-handle	  
	sql-de-lite.scm:403: g1510	  
	sql-de-lite.scm:406: ##sys#make-locative	  
	sqlite3-api.scm:44: ##sys#make-c-string	  
	sql-de-lite.scm:448: g1550	  
	sql-de-lite.scm:458: lru-cache#lru-cache-capacity	  
	sql-de-lite.scm:188: ##sys#block-set!	  
	sql-de-lite.scm:460: lru-cache#lru-cache-set!	  
	sql-de-lite.scm:175: ##sys#block-set!	  
	sql-de-lite.scm:565: bind-parameter-count	  
	sql-de-lite.scm:311: exec*	  
	sql-de-lite.scm:328: fetch	  
	sql-de-lite.scm:707: step	  
	sql-de-lite.scm:495: g1571	  
	sql-de-lite.scm:234: g1578	  
	sql-de-lite.scm:495: step/safe	  
	sql-de-lite.scm:188: ##sys#block-set!	  
	sql-de-lite.scm:710: row-data	  
	sql-de-lite.scm:686: column-count	  
	sql-de-lite.scm:640: g1766	  
	sql-de-lite.scm:234: g1773	  
	sql-de-lite.scm:690: column-data	  
	sql-de-lite.scm:666: g1849	  
	sql-de-lite.scm:234: g1856	  
	sql-de-lite.scm:691: loop	  
	sql-de-lite.scm:329: reset	  
	sql-de-lite.scm:549: reset-unconditionally	  
	sql-de-lite.scm:552: g1635	  
	sql-de-lite.scm:234: g1642	  
	sql-de-lite.scm:188: ##sys#block-set!	  
	sql-de-lite.scm:557: set-statement-column-names!	  
	sql-de-lite.scm:188: ##sys#block-set!	  
	sql-de-lite.scm:330: column-count	  
	sql-de-lite.scm:640: g1766	  
	sql-de-lite.scm:234: g1773	  
		  [amount->string] (sprintf "~A€" (/ amount 100))
		  [amount->string] (/ amount 100)
		  [query] (printf "Last changed:  \t~A\n" (timestamp->datestring (fourth latest-transaction-data)))
		  [query] (timestamp->datestring (fourth latest-transaction-data))
		  [query] (fourth latest-transaction-data)
		  [timestamp->datestring] (time->string (seconds->local-time timestamp) "%d.%m.%Y %H:%M")
		  [timestamp->datestring] (seconds->local-time timestamp)	<--