X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/2b6fcf5b1f6f3cf8d94cada4f00885b275f1a7c5..1260fd0b2c4ce1d0d7e7b17df924c245f67f9058:/module/sxml/ssax.scm

diff --git a/module/sxml/ssax.scm b/module/sxml/ssax.scm
index 474247ba6..f750c934a 100644
--- a/module/sxml/ssax.scm
+++ b/module/sxml/ssax.scm
@@ -180,9 +180,12 @@
   (parameterize ((current-ssax-error-port port))
     (thunk)))
 
-(define (ssax:warn port msg . args)
-  (format (current-ssax-error-port)
-          ";;; SSAX warning: ~a ~a\n" msg args))
+(define (ssax:warn port . args)
+  (with-output-to-port (current-ssax-error-port)
+    (lambda ()
+      (display ";;; SSAX warning: ")
+      (for-each display args)
+      (newline))))
 
 (define (ucscode->string codepoint)
   (string (integer->char codepoint)))