From cf8911921d426b9dacb3c5e6af75a0c93a2d5380 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 27 Jan 2004 16:29:42 +0000
Subject: [PATCH] Fixed bug in send-receive-message-tcp where a WITH-HANDLER
 was called with erroneous arguments.

---
 scheme/lib/dns.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)