diff --git a/src/XML-Parser-Tests/XMLHTTPMessageTest.class.st b/src/XML-Parser-Tests/XMLHTTPMessageTest.class.st
index 705d773c..c0cd4811 100644
--- a/src/XML-Parser-Tests/XMLHTTPMessageTest.class.st
+++ b/src/XML-Parser-Tests/XMLHTTPMessageTest.class.st
@@ -101,6 +101,9 @@ XMLHTTPMessageTest >> testAddHeader [
 			assertMessage: message
 			hasHeaders: addedHeaders].
 
+	SystemVersion current major >= 10
+		ifFalse: [^ self].
+
 	self headers do: [:each |
 		self assert: (message addHeader: each) equals: each.
 		self
@@ -505,6 +508,9 @@ XMLHTTPMessageTest >> testHeaderValuesAtAdd [
 			assertMessage: message
 			hasHeaders: addedHeaders].
 
+	SystemVersion current major >= 10
+		ifFalse: [^ self].
+
 	self headers do: [:each |
 		self assert:
 			(message