diff --git a/internal-latency.rkt b/internal-latency.rkt
index 1f32d34..ed8ee3c 100644
--- a/internal-latency.rkt
+++ b/internal-latency.rkt
@@ -47,9 +47,9 @@
 				'()))]
 	       [_ #f]))
 	   #f
-	   (list (sub (ping dst src ?))
-		 (sub 'kickoff)
-		 (pub (ping src dst ?)))))
+	   (gestalt-union (sub (ping dst src ?))
+			  (sub 'kickoff)
+			  (pub (ping src dst ?)))))
 
   (define (echoer id)
     (spawn (lambda (e s)
@@ -58,8 +58,8 @@
 		(transition s (send (ping id src stamp)))]
 	       [_ #f]))
 	   #f
-	   (list (sub (ping ? id ?))
-		 (pub (ping id ? ?)))))
+	   (gestalt-union (sub (ping ? id ?))
+			  (pub (ping id ? ?)))))
 
   (begin
     (run-ground (for/list [(id (in-range echoer-count))] (echoer id))