         (tap (:ack-mult coordinator) ack-ch-spy)
         (tap (:offer-mult coordinator) offer-ch-spy)
 
-        (extensions/write-place sync peer-node-a payload-node-a-1)
+        (extensions/write-place sync peer-node-a {:pulse pulse-node-a :payload payload-node-a-1})
         (extensions/on-change sync payload-node-a-1 #(>!! sync-spy-a %))
 
-        (extensions/write-place sync peer-node-b payload-node-b-1)
+        (extensions/write-place sync peer-node-b {:pulse pulse-node-b :payload payload-node-b-1})
         (extensions/on-change sync payload-node-b-1 #(>!! sync-spy-b %))
 
         (>!! (:born-peer-ch-head coordinator) peer-node-a)

            (<!! status-spy)
            (<!! status-spy)

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

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

            (extensions/touch-place sync (:completion (:nodes payload-a)))

      (let [peer-node-a (extensions/create sync :peer)
            peer-node-b (extensions/create sync :peer)

            pulse-node-a (extensions/create sync :pulse)
            pulse-node-b (extensions/create sync :pulse)

            payload-node-a-1 (extensions/create sync :payload)
            payload-node-b-1 (extensions/create sync :payload)

