diff --git a/ChangeLog b/ChangeLog
index 8fcdff4ef..03fd68979 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-16  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Tools/gsdoc.m: ([-initWithFileName:]) call xmlKeepBlanksDefault(0)
+	to handle change in recent libxml whitespace handling.
+
 2001-08-10  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/NSDistantObject.m: Tidy method lookup code.
diff --git a/Tools/gsdoc.m b/Tools/gsdoc.m
index 249c1bac1..83ebaa65b 100644
--- a/Tools/gsdoc.m
+++ b/Tools/gsdoc.m
@@ -250,6 +250,7 @@ loader(const char *url, const char *eid, xmlParserCtxtPtr *ctxt)
       NSString			*s;
       NSFileManager		*m;
 
+      xmlKeepBlanksDefault(0);
       xmlDoValidityCheckingDefaultValue = 1;
       ldr = xmlGetExternalEntityLoader();
       if (ldr != (xmlExternalEntityLoader)loader)