diff --git a/ChangeLog b/ChangeLog
index f265d7a3..628d64cc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Apr 25 18:42:35 CEST 2003 Daniel Veillard <daniel@veillard.com>
+
+	* parser.c: fixing an xmlParseDTD bug raised by Petr Pajas
+
 Fri Apr 25 15:20:29 CEST 2003 Daniel Veillard <daniel@veillard.com>
 
 	* doc/Makefile.am doc/xmlcatalog.1 doc/xmlcatalog_man.xml
diff --git a/parser.c b/parser.c
index bb6f5cc6..19e4313d 100644
--- a/parser.c
+++ b/parser.c
@@ -9613,6 +9613,16 @@ xmlSAXParseDTD(xmlSAXHandlerPtr sax, const xmlChar *ExternalID,
 	if (ctxt->wellFormed) {
 	    ret = ctxt->myDoc->extSubset;
 	    ctxt->myDoc->extSubset = NULL;
+	    if (ret != NULL) {
+		xmlNodePtr tmp;
+
+		ret->doc = NULL;
+		tmp = ret->children;
+		while (tmp != NULL) {
+		    tmp->doc = NULL;
+		    tmp = tmp->next;
+		}
+	    }
 	} else {
 	    ret = NULL;
 	}