diff --git a/ChangeLog b/ChangeLog
index 1637ba1fb..fae8a27db 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-08  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/Additions/GSXML.m: ([stringByEscapingXML]) Fix bug causing
+	newline characters to be removed from escaped strings.
+
 2006-11-07  David Wetzel <dave@turbocat.de>
 
 	* Source/Additions/GSXML.m:
diff --git a/Source/Additions/GSXML.m b/Source/Additions/GSXML.m
index c675662e7..18a5baa28 100644
--- a/Source/Additions/GSXML.m
+++ b/Source/Additions/GSXML.m
@@ -4139,7 +4139,7 @@ static BOOL warned = NO; if (warned == NO) { warned = YES; NSLog(@"WARNING, use
       unichar	c = from[i];
 
       if ((c >= 0x20 && c <= 0xd7ff)
-	|| c == 0x9 || c == 0xd || c == 0xd
+	|| c == 0x9 || c == 0xd || c == 0xa
 	|| (c >= 0xe000 && c <= 0xfffd))
 	{
 	  switch (c)
@@ -4197,7 +4197,7 @@ static BOOL warned = NO; if (warned == NO) { warned = YES; NSLog(@"WARNING, use
 	  unichar	c = from[i];
 
 	  if ((c >= 0x20 && c <= 0xd7ff)
-	    || c == 0x9 || c == 0xd || c == 0xd
+	    || c == 0x9 || c == 0xd || c == 0xa
 	    || (c >= 0xe000 && c <= 0xfffd))
 	    {
 	      switch (c)