--- a/RegressionTests__HTMLParserTests.st	Mon Jul 16 19:47:29 2018 +0200
+++ b/RegressionTests__HTMLParserTests.st	Mon Jul 16 19:49:33 2018 +0200
@@ -254,14 +254,14 @@
     styleElement := headElement children first.
     self assert:(styleElement tagName = 'style').
     styleText := HTML::TextExtractor extractTextFromElement:styleElement.
-    self assert:(styleText = 'foo bar &bla &froboz & &amp foo').
+    self assert:(styleText = 'foo bar &bla &froboz & &amp foo').
 
     "
      self new test04_style
     "
 
     "Created: / 27-06-2018 / 12:58:48 / Claus Gittinger"
-    "Modified: / 27-06-2018 / 15:22:00 / Claus Gittinger"
+    "Modified: / 16-07-2018 / 19:49:23 / Claus Gittinger"
 !
 
 test05_textExtraction
@@ -329,5 +329,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !