--- a/RegressionTests__HTMLParserTests.st	Thu Jan 15 12:52:45 2009 +0100
+++ b/RegressionTests__HTMLParserTests.st	Mon Jan 19 15:18:54 2009 +0100
@@ -215,7 +215,8 @@
 </body>
 </html>
 '.
-    self assert:(doc first tag = '!!DOCTYPE').
+    self assert:(doc children first tagName = 'head').
+    self assert:(doc docType = '-//W3C//DTD HTML 4.01 Transitional//EN').
 
     "
      self new test03