1 files changed, 3 insertions, 5 deletions
diff --git a/guix-web b/guix-web
index 6031122..0b322e9 100755
--- a/guix-web
+++ b/guix-web
@@ -64,11 +64,9 @@
 
 (define (render-html sxml)
   (list '((content-type . (text/html)))
-        (string-append
-         "<!DOCTYPE html>\n"
-         (with-output-to-string
-           (lambda ()
-             (sxml->xml sxml))))))
+        (lambda (port)
+          (display "<!DOCTYPE html>" port)
+          (sxml->xml sxml port))))
 
 (define (render-json json)
   (list '((content-type . (application/json)))