diff --git a/ChangeLog b/ChangeLog
index 803dbcfa..b24fb892 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu May  1 10:02:35 CEST 2003 Daniel Veillard <daniel@veillard.com>
+
+	* tree.c: fixed a problem with xmlUnlinkNode() for DTDs.
+
 Wed Apr 30 14:16:08 CEST 2003 Daniel Veillard <daniel@veillard.com>
 
 	* xml2-config.in: try to fix Red hat bug #89957, do not
diff --git a/tree.c b/tree.c
index b2445f00..8da828ab 100644
--- a/tree.c
+++ b/tree.c
@@ -3250,10 +3250,12 @@ xmlUnlinkNode(xmlNodePtr cur) {
     if (cur->type == XML_DTD_NODE) {
 	xmlDocPtr doc;
 	doc = cur->doc;
-	if (doc->intSubset == (xmlDtdPtr) cur)
-	    doc->intSubset = NULL;
-	if (doc->extSubset == (xmlDtdPtr) cur)
-	    doc->extSubset = NULL;
+	if (doc != NULL) {
+	    if (doc->intSubset == (xmlDtdPtr) cur)
+		doc->intSubset = NULL;
+	    if (doc->extSubset == (xmlDtdPtr) cur)
+		doc->extSubset = NULL;
+	}
     }
     if (cur->parent != NULL) {
 	xmlNodePtr parent;