diff --git a/ChangeLog b/ChangeLog
index 437eaa27..dcf9c085 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Apr 26 23:17:51 CEST 2003 Daniel Veillard <daniel@veillard.com>
+
+	* parser.c: fix for xmlIOParseDTD same as previous and reported
+	  by Petr Pajas
+
 Sat Apr 26 15:26:04 CEST 2003 Daniel Veillard <daniel@veillard.com>
 
 	* parser.c: applied fix to xmlSAXParseDTD from Malcolm Tredinnick
diff --git a/parser.c b/parser.c
index 80a6187e..922ab433 100644
--- a/parser.c
+++ b/parser.c
@@ -9525,6 +9525,16 @@ xmlIOParseDTD(xmlSAXHandlerPtr sax, xmlParserInputBufferPtr input,
 	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;
 	}