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