diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm
index 7fd6075..ae04c41 100644
--- a/scheme/lib/dns.scm
+++ b/scheme/lib/dns.scm
@@ -848,7 +848,7 @@
 					     (r (socket:inport sock)))
 					 (call-with-current-continuation
 					  (lambda (k)
-					    (with-handler (lambda (k)
+					    (with-handler (lambda (cond more)
 							    (k (loop-ready-channels (cdr ready-channels))))
 							  (lambda ()
 							    (display query-string w)