+ don't output anything in DNS-LOOKUP

+ typo fix in pretty-print-dns-message

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))