diff --git a/big-bang-driver.rkt b/big-bang-driver.rkt index 3a1d7ba..7bc0c4c 100644 --- a/big-bang-driver.rkt +++ b/big-bang-driver.rkt @@ -106,9 +106,10 @@ (message-handlers w [(dns-reply message sink) (transition w - (send-meta-message - (with-handlers ((exn? (lambda (e) (bad-dns-packet message s sink - 'unencodable)))) + (with-handlers ((exn? (lambda (e) (send-message + (bad-dns-packet message s sink + 'unencodable))))) + (send-meta-message (udp-packet s sink (dns-message->packet message)))))])))) (define (first-only xs)