From be66fde64cfb476e4258bb3584f2bd8e651a5c01 Mon Sep 17 00:00:00 2001
From: Geoff Hill <geoff@geoffhill.org>
Date: Sat, 15 Aug 2015 00:41:46 -0700
Subject: [PATCH] write-xexpr: consistently use parameter port.

---
 racket/collects/xml/private/xexpr.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/collects/xml/private/xexpr.rkt b/racket/collects/xml/private/xexpr.rkt
index add87dd5f1..5dbad64766 100644
--- a/racket/collects/xml/private/xexpr.rkt
+++ b/racket/collects/xml/private/xexpr.rkt
@@ -131,7 +131,7 @@
          (write-string/escape (cadr att) escape-attribute-table out)
          (write-string "\"" out))
        (when insert-newlines?
-         (newline))
+         (newline out))
        ; Write end of opening tag
        (if (and (null? content)
                 (case short