From 903aa1168bfb3a1374ff7b29a6d6c4e424d1a3ad Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 14 May 2014 15:36:06 -0400
Subject: [PATCH] Explicitly ignore DNSSEC uses of DNS header bits.

---
 codec.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/codec.rkt b/codec.rkt
index 815a364..e846580 100644
--- a/codec.rkt
+++ b/codec.rkt
@@ -216,7 +216,7 @@
        (tc :: (t:named-bit 'not-truncated 'truncated))
        (rd :: (t:named-bit 'no-recursion-desired 'recursion-desired))
        (ra :: (t:named-bit 'no-recursion-available 'recursion-available))
-       (= 0 :: bits 3)
+       (:: bits 3) ;; previously, had to be zero; now, Z, AD and CD respectively. See RFC 2535.
        (rcode :: bits 4)
 
        (qdcount :: bits 16)