diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm
index 3ef0af2..e4a04cb 100644
--- a/scheme/lib/dns.scm
+++ b/scheme/lib/dns.scm
@@ -512,7 +512,7 @@
 
 ;; flags
 (define-record-type flags :flags
-  (make-flags querytype opcode authoritative? truncated? recursion-desired? 
+  (make-flags query-type opcode authoritative? truncated? recursion-desired? 
 	      recursion-available? zero response-code)
   flags?
   (query-type            flags-query-type)
@@ -1425,7 +1425,7 @@
 	     (d 4 "additional-count  " (header-additional-count dns-msg))))
 	  ((flags? dns-msg)
 	   (begin 
-	     (d 5 "querytype" (flags-querytype dns-msg))
+	     (d 5 "querytype" (flags-query-type dns-msg))
 	     (d 5 "opcode" (flags-opcode dns-msg))
 	     (d 5 "authoritative?" (flags-authoritative? dns-msg))
 	     (d 5 "truncated?" (flags-truncated? dns-msg))