More debug

proxy.rkt

@@ -197,6 +197,8 @@
   (match w
     [(question-state _ q _ _ 20) ;; TODO: is this a sensible limit?
      ;; Too many retries, i.e. too many referrals.
+     (begin (write `(Too many retries ,w))
+	    (newline))
      (send-empty-reply w q)]
     [(question-state zone q client-sock nameservers-tried old-retry-count)
      ;; Credit remaining. Try once more (perhaps for the first time, in fact).