From 8f0cec3e16a73e8f5eff91c840bced63ae29fa4d Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Thu, 30 Nov 2006 03:03:00 +0000
Subject: [PATCH] Fix XML public API breakage

---
 libs/xml/writer.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/libs/xml/writer.factor b/libs/xml/writer.factor
index 5f470b4395..bf6b1a501e 100644
--- a/libs/xml/writer.factor
+++ b/libs/xml/writer.factor
@@ -6,12 +6,12 @@ USING: hashtables kernel math namespaces sequences strings
 
 GENERIC: write-str-elem ( elem -- )
 
-: chars>entities ( str -- )
+: chars>entities ( str -- str )
     #! Convert <, >, &, ' and " to HTML entities.
-    [ dup entities hash [ write ] [ write1 ] ?if ] each ;
+    [ [ dup entities hash [ % ] [ , ] ?if ] each ] "" make ;
 
 M: string write-str-elem
-    chars>entities ;
+    chars>entities write ;
 
 M: entity write-str-elem
     CHAR: & write1 entity-name write CHAR: ; write1 ;