From f86c372baa4eafdea35d4f4f55919594b7d6ba26 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 6 Mar 2012 14:33:36 -0500
Subject: [PATCH] Fix dangling-subscription bug

---
 proxy.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/proxy.rkt b/proxy.rkt
index 790e1d2..ab74dc7 100644
--- a/proxy.rkt
+++ b/proxy.rkt
@@ -252,7 +252,9 @@
 	  (subscribe referral-id
 	    (message-handlers w
 	      [(network-reply (== referral-id) #f) ;; name-error/NXDOMAIN
-	       (transition w (send-message (answered-question q #f)))]
+	       (transition w
+		 (unsubscribe referral-id)
+		 (send-message (answered-question q #f)))]
 	      [(network-reply (== referral-id) ans)
 	       (define-values (new-zone ignored-timers) (incorporate-complete-answer ans zone))
 	       (when (log-level? (current-logger) 'debug)