diff --git a/ChangeLog b/ChangeLog
index 5ec67466..b4f9c772 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Sep  5 17:47:43 CEST 2001 Daniel Veillard <daniel@veillard.com>
+
+	* parser.c: warn if version is not 1.0 but it's not
+	  strictly speaking an error after analyzing the spec
+
 Mon Sep  3 10:07:03 MDT 2001 John Fleck <jfleck@inkstain.net>
 
 	*doc/catalog.html - add link to the html version of the
diff --git a/parser.c b/parser.c
index 8aa5ab1b..c445d789 100644
--- a/parser.c
+++ b/parser.c
@@ -7263,6 +7263,14 @@ xmlParseXMLDecl(xmlParserCtxtPtr ctxt) {
     version = xmlParseVersionInfo(ctxt);
     if (version == NULL)
 	version = xmlCharStrdup(XML_DEFAULT_VERSION);
+    else if (!xmlStrEqual(version, (const xmlChar *) XML_DEFAULT_VERSION)) {
+	/*
+	 * TODO: Blueberry should be detected here
+	 */
+	if ((ctxt->sax != NULL) && (ctxt->sax->warning != NULL))
+	    ctxt->sax->warning(ctxt->userData, "Unsupported version '%s'\n",
+		               version);
+    }
     ctxt->version = xmlStrdup(version);
     xmlFree(version);