--- a/ParserTests.st	Sat Feb 22 23:42:43 2014 +0100
+++ b/ParserTests.st	Sun Feb 23 00:26:53 2014 +0100
@@ -1656,6 +1656,7 @@
     |parser|
 
     parser := self parserClass new.
+    parser parserFlags allowSTXDelimiterComments:true.
     parser saveComments:true.
     parser
                 parseMethod:'foo
@@ -1669,7 +1670,7 @@
     self deny:parser isNil.
     self deny:parser == #Error.
     self assert:parser comments size == 1.
-    self assert:parser comments first commentString = '>>END\bla\bla bla\END\' withCRs.
+    self assert:parser comments first commentString = '<<END\bla\bla bla\END\' withCRs.
 !
 
 test_120_scan_numbers    
@@ -1830,6 +1831,6 @@
 !
 
 version_SVN
-    ^ '§ Id: ParserTests.st 2014 2010-07-12 08:10:01Z vranyj1  §'
+    ^ '$ Id: ParserTests.st 2014 2010-07-12 08:10:01Z vranyj1  $'
 ! !