From 0af0e9ffa33ad233d183315021c732d575ddbcdd Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 25 Oct 2011 14:28:50 -0400
Subject: [PATCH] Permit extraction of join-name from a handle.

---
 conversation.rkt | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/conversation.rkt b/conversation.rkt
index 355d5d3..cfa9bc4 100644
--- a/conversation.rkt
+++ b/conversation.rkt
@@ -110,6 +110,9 @@
 			     ,out-ch ,in-ch ,disconnect-box
 			     ,(current-thread) ,(current-thread-exit-status)))
 
+    (define/public (reply-name)
+      name)
+
     (define/public (connected?)
       connected)