--- a/ParserTests.st	Thu Sep 04 13:05:03 2014 +0200
+++ b/ParserTests.st	Thu Sep 04 13:14:13 2014 +0200
@@ -1726,6 +1726,26 @@
     self assert:parser comments first commentString = '<<END\bla\bla bla\END\' withCRs.
 !
 
+test_110_scan_DelimitedComment2    
+    |parser|
+
+    parser := self parserClass new.
+    parser parserFlags allowSTXDelimiterComments:true.
+    parser saveComments:true.
+    parser
+                parseMethod:'foo
+"<<<< here is the difference"
+1'
+                in:mockClass.
+     " check the parser result "
+    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.
+
+    "Created: / 04-09-2014 / 12:00:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_120_scan_numbers    
     |s n|