diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj
index 08f99d34..0d7c3aed 100644
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -182,7 +182,8 @@
                             {}
                             (:entries args))
         all-vendors (into all-vendors new-hidden-vendors)
-        all-accounts  (transduce (map :account/code) conj #{} (a/get-accounts))
+        all-accounts  (transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts))
+        _ (println all-accounts)
         transaction (doall (map
                             (assoc-error (fn [entry]
                                            (let [entry (-> entry