diff --git a/src/clj/auto_ap/ledger.clj b/src/clj/auto_ap/ledger.clj
index 1061aa85..a665566b 100644
--- a/src/clj/auto_ap/ledger.clj
+++ b/src/clj/auto_ap/ledger.clj
@@ -397,7 +397,7 @@
       (dorun
        (for [{client :db/id code :client/code bank-accounts :client/bank-accounts} clients
              {bank-account :db/id bac :bank-account/code}                            bank-accounts]
-         (let [{[_ _ _ _ _ running-balance] :v} (->> (dc/index-range db :journal-entry-line/running-balance-tuple [client bank-account "A"] [client bank-account "A" #inst "2050-01-01"])
+         (let [{[_ _ _ _ _ _ running-balance] :v} (->> (dc/index-range db :journal-entry-line/running-balance-tuple [client bank-account "A"] [client bank-account "A" #inst "2050-01-01"])
                                                      seq
                                                      (sort-by (fn [{id :e [_ _ _ current-date] :v}]
                                                                 [current-date id]))
@@ -472,6 +472,8 @@
 
 
 (comment
+  (pull-id (dc/db conn) [:client/code "SCCB"])
+
 (mark-all-clients-dirty)
 
 (clients-needing-refresh (dc/db conn))