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)