             (>!! offer-head peer)))
         (recur)))))
 
-(defn dead-peer-ch-loop [sync sync-ch dead-tail evict-head offer-head]
+(defn dead-peer-ch-loop [sync sync-ch dead-tail evict-head offer-head dead-ch]
   (loop []
     (when-let [peer-node (<!! dead-tail)]
       (when (mark-peer-death sync sync-ch peer-node)


      (dire/with-handler! #'shutdown-ch-loop
        java.lang.Exception (fn [e & _] (warn e)))

      (r/repair-planning-messages! sync #(>!! planning-ch-head %))
      (r/repair-birth-messages! sync #(>!! born-peer-ch-head %))

          seal-mult (mult seal-ch-head)
          completion-mult (mult completion-ch-head)
          shutdown-mult (mult shutdown-ch-head)
          failure-mult (mult failure-ch-head)

          planning-dead-ch (chan)
          born-peer-dead-ch (chan)
          dead-peer-dead-ch (chan)
          evict-dead-ch (chan)
          offer-dead-ch (chan)
          offer-revoke-dead-ch (chan)
          ack-dead-ch (chan)
          exhaust-dead-ch (chan)
          seal-dead-ch (chan)
          completion-dead-ch (chan)
          shutdown-dead-ch (chan)]

      (tap planning-mult planning-ch-tail)
      (tap born-peer-mult born-peer-ch-tail)
      (tap dead-peer-mult dead-peer-ch-tail)
