diff --git a/proxy.rkt b/proxy.rkt
index 0122966..be38b1c 100644
--- a/proxy.rkt
+++ b/proxy.rkt
@@ -206,12 +206,13 @@
        [#f ;; We're not authoritative so this is just a signal that we can't answer usefully
 	(send-empty-reply w q)]
        [(referral zone-origin nameserver-rrs _)
+	(define referral-id (gensym 'referral))
 	(begin
 	  (write `(Referral for ,q
+			    id ,referral-id
 			    to ,(domain-labels zone-origin)
 			    servers ,(map domain-labels (set-map nameserver-rrs rr-rdata))))
 	  (newline))
-	(define referral-id (gensym 'referral))
 	(transition w
 	  (spawn (network-query client-sock
 				q