                   true
                   (conj (wallet/update-balances
                          (into [] (reduce (fn [acc {:keys [address block]}]
-                                            (if (>= block min-known-block)
+                                            (if (> block max-known-block)
                                               (conj acc address)
                                               acc))
                                           #{}

             "count" (count transfers)
             "limit" limit)
  (let [checksum (eip55/address->checksum address)
        min-known-block (or (get-min-known-block db address)
                            (:ethereum/current-block db))
        effects (cond-> [(when (seq transfers)
                           (set-lowest-fetched-block checksum transfers))]

                  (seq transfers)
                  (concat (mapv add-transfer transfers))

(defn get-min-known-block [db address]
  (get-in db [:wallet :accounts (eip55/address->checksum address) :min-block]))

(defn get-max-block-with-transfers [db address]
  (get-in db [:wallet :accounts (eip55/address->checksum address) :max-block]))

(defn min-block-transfers-count [db address]
  (get-in db [:wallet :accounts
              (eip55/address->checksum address)
