diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj
index 11e6dcc1..3b7e5ea1 100644
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -292,14 +292,12 @@
 
 (defn import-ledger [context args _]
   (assert-admin (:id context))
-  (let [used-vendor-names (set (map :vendor_name (:entries args)))
-        all-vendors              (mu/trace ::get-all-vendors
+  (let [all-vendors              (mu/trace ::get-all-vendors
                                    []
                                    (->> (d/q '[:find [?e ...]
-                                               :in $ [?name ...]
-                                               :where [?e :vendor/name ?name]]
-                                             (d/db conn)
-                                             used-vendor-names)
+                                               :in $
+                                               :where [?e :vendor/name]]
+                                             (d/db conn))
                                         (d/pull-many (d/db conn) d-vendors/default-read)
                                         (by :vendor/name)))
         all-clients              (by :client/code (d-clients/get-all ))
@@ -333,13 +331,10 @@
         _                        (mu/trace ::upsert-new-vendors
                                    []
                                    (audit-transact-batch (vec (vals new-hidden-vendors)) (:id context)))
-        all-vendors              (->> (->> (d/q '[:find [?e ...]
-                                                  :in $ [?name ...]
-                                                  :where [?e :vendor/name ?name]]
-                                                (d/db conn)
-                                                used-vendor-names)
-                                           (d/pull-many (d/db conn) d-vendors/default-read)
-                                           (by :vendor/name))
+        all-vendors              (->> (d/q '[:find [?e ...]
+                                             :in $
+                                             :where [?e :vendor/name]]
+                                           (d/db conn))
                                       (d/pull-many (d/db conn) d-vendors/default-read)
                                       (by :vendor/name))
         all-accounts             (transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts))