Index: src/OFXMLParser.h
==================================================================
--- src/OFXMLParser.h
+++ src/OFXMLParser.h
@@ -103,10 +103,11 @@
 {
 	OFObject <OFXMLParserDelegate> *delegate;
 	enum {
 		OF_XMLPARSER_OUTSIDE_TAG,
 		OF_XMLPARSER_TAG_OPENED,
+		OF_XMLPARSER_IN_PROLOG,
 		OF_XMLPARSER_IN_TAG_NAME,
 		OF_XMLPARSER_IN_CLOSE_TAG_NAME,
 		OF_XMLPARSER_IN_TAG,
 		OF_XMLPARSER_IN_ATTR_NAME,
 		OF_XMLPARSER_EXPECT_DELIM,

Index: src/OFXMLParser.m
==================================================================
--- src/OFXMLParser.m
+++ src/OFXMLParser.m
@@ -150,21 +150,36 @@
 			}
 			break;
 
 		/* Tag was just opened */
 		case OF_XMLPARSER_TAG_OPENED:
-			if (buf[i] == '/') {
+			switch (buf[i]) {
+			case '?':
+				last = i + 1;
+				state = OF_XMLPARSER_IN_PROLOG;
+				break;
+			case '/':
+				last = i + 1;
 				state = OF_XMLPARSER_IN_CLOSE_TAG_NAME;
+				break;
+			case '!':
 				last = i + 1;
-			} else if(buf[i] == '!') {
 				state = OF_XMLPARSER_IN_CDATA_OR_COMMENT;
-				last = i + 1;
-			} else {
+				break;
+			default:
 				state = OF_XMLPARSER_IN_TAG_NAME;
 				i--;
+				break;
 			}
 			break;
+
+		/* Inside prolog */
+		case OF_XMLPARSER_IN_PROLOG:
+			last = i + 1;
+			if (buf[i] == '?')
+				state = OF_XMLPARSER_EXPECT_CLOSE;
+			break;
 
 		/* Inside a tag, no name yet */
 		case OF_XMLPARSER_IN_TAG_NAME:
 			if (buf[i] == ' ' || buf[i] == '\n' || buf[i] == '\r' ||
 			    buf[i] == '>' || buf[i] == '/') {

Index: tests/OFXMLParserTests.m
==================================================================
--- tests/OFXMLParserTests.m
+++ tests/OFXMLParserTests.m
@@ -304,11 +304,11 @@
 
 - (void)XMLParserTests
 {
 	OFAutoreleasePool *pool = [[OFAutoreleasePool alloc] init];
 	OFXMLParser *parser;
-	const char *str = "<root>\n"
+	const char *str = "<?xml version='1.0'?><root>\n"
 	    " <![CDATA[f<oo]]><bar/>\n"
 	    " <foobar xmlns='urn:objfw:test:foobar'>\n"
 	    "  <qux xmlns:foo='urn:objfw:test:foo'>\n"
 	    "   <foo:bla foo:bla='&#x62;&#x6c;&#x61;' blafoo='foo'>\n"
 	    "    <blup foo:qux='asd' quxqux='test'/>\n"