From 1260fd0b2c4ce1d0d7e7b17df924c245f67f9058 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 30 Jan 2013 13:55:59 +0100
Subject: [PATCH] quick fix to ssax.scm

* module/sxml/ssax.scm: Fix previous commit.
---
 module/sxml/ssax.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/module/sxml/ssax.scm b/module/sxml/ssax.scm
index cf94b715a..f750c934a 100644
--- a/module/sxml/ssax.scm
+++ b/module/sxml/ssax.scm
@@ -182,9 +182,10 @@
 
 (define (ssax:warn port . args)
   (with-output-to-port (current-ssax-error-port)
-    (display ";;; SSAX warning: ")
-    (for-each display args)
-    (newline)))
+    (lambda ()
+      (display ";;; SSAX warning: ")
+      (for-each display args)
+      (newline))))
 
 (define (ucscode->string codepoint)
   (string (integer->char codepoint)))
-- 
2.20.1