diff --git a/src/clj/auto_ap/graphql/transactions.clj b/src/clj/auto_ap/graphql/transactions.clj
index bf2fae76..89b3c5b2 100644
--- a/src/clj/auto_ap/graphql/transactions.clj
+++ b/src/clj/auto_ap/graphql/transactions.clj
@@ -206,25 +206,30 @@
     (alog/info ::bulk-delete-transactions
       :count (count all-ids)
       :sample (take 3 all-ids))
+    (audit-transact-batch
+      (mapcat (fn [i]
+                (let [transaction         (dc/pull db [:transaction/payment
+                                               :transaction/expected-deposit
+                                               :db/id] i)
+                      payment-id          (-> transaction :transaction/payment :db/id)
+                      expected-deposit-id (-> transaction :transaction/expected-deposit :db/id)]
+                  (cond->> [[:db/retractEntity [:journal-entry/original-entity i]]]
+                    payment-id          (into [{:db/id          payment-id
+                                                :payment/status :payment-status/pending}
+                                      [:db/retract (:db/id transaction) :transaction/payment payment-id]])
+                    expected-deposit-id (into [{:db/id                   expected-deposit-id
+                                                :expected-deposit/status :expected-deposit-status/pending}
+                                               [:db/retract (:db/id transaction) :transaction/expected-deposit expected-deposit-id]]))))
+              all-ids)
+      (:id context))
     (audit-transact-batch
      (mapcat (fn [i]
-               (let [transaction (dc/pull db [:transaction/payment
-                                              :transaction/expected-deposit
-                                              :db/id] i)
-                     payment-id (-> transaction :transaction/payment :db/id)
-                     expected-deposit-id (-> transaction :transaction/expected-deposit :db/id)
-                     transaction-tx (if (:suppress args)
+               (let [transaction-tx (if (:suppress args)
                                       {:db/id i
                                        :transaction/approval-status :transaction-approval-status/suppressed}
                                       [:db/retractEntity i])]
-                 (cond->> [transaction-tx
-                           [:db/retractEntity [:journal-entry/original-entity i]]]
-                   payment-id (into [{:db/id payment-id
-                                      :payment/status :payment-status/pending}
-                                     [:db/retract (:db/id transaction) :transaction/payment payment-id]])
-                   expected-deposit-id (into [{:db/id expected-deposit-id
-                                               :expected-deposit/status :expected-deposit-status/pending}
-                                              [:db/retract (:db/id transaction) :transaction/expected-deposit expected-deposit-id]]))))
+                 [transaction-tx
+                  [:db/retractEntity [:journal-entry/original-entity i]]]))
              all-ids)
      (:id context))
     {:message (str "Succesfully deleted " (count all-ids) " transactions.")}))