Print a newline after each TXT message in DNS.

diff --git a/extra/dns/dns.factor b/extra/dns/dns.factor
index 70b427566088204b9c18afc4865b932439f074bc..57795f49c26e4a2ba47bc08a200cb71869044fc0 100644 (file)
--- a/extra/dns/dns.factor
+++ b/extra/dns/dns.factor
@@ -351,7 +351,7 @@ M: TXT rdata>byte-array
     ] map ;
 
 : TXT. ( domain -- )
-    dns-TXT-query TXT-message>strings [ [ write ] each ] each ;
+    dns-TXT-query TXT-message>strings [ [ write ] each nl ] each ;
 
 : reverse-lookup ( reversed-ip -- message )
     PTR IN <query> dns-query ;