diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm
index decc42b..91543dc 100644
--- a/scheme/lib/dns.scm
+++ b/scheme/lib/dns.scm
@@ -1271,10 +1271,6 @@
 	 (check-answer (lambda (dns-msg) #t))
 	 (dns-msg (dns-get-information question use-cache? protocol nameservers check-answer))
 	 (answers (message-answers (dns-message-reply dns-msg))))
-    (if (not (null? answers))
-	(for-each (lambda (x) (show-dns-message x)(newline)) answers)
-	;;; TODO remove display
-	(display "no answers received - but resolved information in other sections.\n"))
     dns-msg))
 
 
@@ -1400,7 +1396,7 @@
 	     (display ": ")
 	     (display s2)
 	     (newline)))))
-    (with-current-output-port
+    (with-current-output-port*
      (if (null? maybe-port)
 	 (current-output-port)
 	 (car maybe-port))