diff --git a/presence/test-conversation-socket.rkt b/presence/test-conversation-socket.rkt
index bd34a75..be4e2dc 100644
--- a/presence/test-conversation-socket.rkt
+++ b/presence/test-conversation-socket.rkt
@@ -56,11 +56,7 @@
      (define (quit-proc) (send h depart))
      (let loop ()
        (match (send h listen)
-	 [(arrived
-	   (topic 'publisher
-		  (and inbound-stream (tcp-stream (tcp-address (? non-wild?) (? non-wild?))
-						  (== server-address)))
-		  #f))
+	 [(arrived (topic 'publisher (and inbound-stream (tcp-stream _ (== server-address))) #f))
 	  (write `(starting session for ,inbound-stream)) (newline)
 	  (standard-thread (lambda () (session inbound-stream quit-proc)))
 	  (loop)]