diff --git a/presence/conversation.rkt b/presence/conversation.rkt
index be27059..c242652 100644
--- a/presence/conversation.rkt
+++ b/presence/conversation.rkt
@@ -129,6 +129,9 @@
 			    (lambda (v)
 			      (set! names (set-remove names cname))))))
 
+    (define/public (current-flows)
+      flows)
+
     (define/public (retract! name)
       (sync (retract!-evt name)))
 
diff --git a/presence/test-conversation.rkt b/presence/test-conversation.rkt
index 9051695..7c4abb5 100644
--- a/presence/test-conversation.rkt
+++ b/presence/test-conversation.rkt
@@ -4,6 +4,7 @@
 (require racket/port)
 (require racket/class)
 (require racket/match)
+(require racket/pretty)
 
 (require "conversation.rkt")
 (require "standard-thread.rkt")
@@ -40,6 +41,7 @@
 	(send handle assert! talk-topic)
 	(send handle assert! listen-topic)
 	(let loop ()
+	  ;;(pretty-print (send handle current-flows))
 	  (display name o)
 	  (display "@ROOM>> " o)
 	  (flush-output o)