   (with-system
     (fn [coordinator sync log]
       (let [peer-node (extensions/create sync :peer)
-            payload-node (extensions/create sync :payload)
+            in-payload-node (extensions/create sync :payload)
             sync-spy (chan 1)
             ack-ch-spy (chan 1)
             offer-ch-spy (chan 1)

          (extensions/on-change sync inc-payload-node #(>!! sync-spy %))

          (testing "Touching the completion node triggers the callback"
            (let [nodes (:nodes (extensions/read-place sync payload-node))]
              (extensions/touch-place sync (:completion nodes))
              (let [event (<!! completion-ch-spy)]
                (= (:path event) (:completion nodes)))))

        (tap (:offer-mult coordinator) offer-ch-spy)
        (tap (:completion-mult coordinator) completion-ch-spy)

        (extensions/write-place sync peer-node in-payload-node)
        (extensions/on-change sync in-payload-node #(>!! sync-spy %))

        (>!! (:born-peer-ch-head coordinator) peer-node)
        (>!! (:planning-ch-head coordinator)
