diff --git a/src/clj/auto_ap/datomic/ledger.clj b/src/clj/auto_ap/datomic/ledger.clj
index 58f71902..1a1b1633 100644
--- a/src/clj/auto_ap/datomic/ledger.clj
+++ b/src/clj/auto_ap/datomic/ledger.clj
@@ -69,14 +69,14 @@
                     (:to-numeric-code args))
                 (merge-query {:query {:in []
                                       :where ['[?li :journal-entry-line/account ?a]
-                                              '(or-join [?c]
+                                              '(or-join [?a ?c]
                                                        [?a :account/numeric-code ?c]
                                                        (and [?a :bank-account/type :bank-account-type/check]
-                                                            [?c 11100])
+                                                            [(ground 11100) ?c])
                                                        (and [?a :bank-account/type :bank-account-type/cash]
-                                                            [?c 11100])
+                                                            [(ground 11100) ?c])
                                                        (and [?a :bank-account/type :bank-account-type/credit]
-                                                            [?c 28000]))]}
+                                                            [(ground 28000) ?c]))]}
                               :args []})
 
                 (:from-numeric-code args)