                                     new-record)]
             (m/return
              (update-record-by-key-responses
+              model
               old-record
               new-record
               acquire-key-responses)))))

  (combine-responses
   (mapcat
    identity
    (for [t (:lookup-tables model)]
      (let [uber-key (t/uber-key model)
            uber-key-value (t/extract-uber-key-value model record)
            key (:key t)

        (if coll
          (let [old-kvs (set (k/extract-key-value-collection key old-record))
                new-kvs (set (k/extract-key-value-collection key new-record))
                stale-kvs (filter identity (set/difference old-kvs new-kvs))]
            (for [kv stale-kvs]
              (release-unique-key session model t uber-key-value kv)))

