             (<!! status-spy)
             (<!! status-spy)
 
-            (extensions/write-place sync peer-node-a payload-node-a-2)
+            (extensions/write-place sync peer-node-a {:pulse pulse-node-a :payload 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/write-place sync peer-node-b {:pulse pulse-node-b :payload 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)

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


    (fn [coordinator sync log]
      (let [n 4
            peers (take n (repeatedly (fn [] (extensions/create sync :peer))))
            pulses (take n (repeatedly (fn [] (extensions/create sync :pulse))))
            payloads (take n (repeatedly (fn [] (extensions/create sync :payload))))
            sync-spies (take n (repeatedly (fn [] (chan 1))))
            
