--- a/Scanner.st	Tue Jul 25 17:11:28 2017 +0200
+++ b/Scanner.st	Fri Jul 28 10:34:28 2017 +0200
@@ -3580,7 +3580,8 @@
 skipComment
     "skip over a comment; 
      handles ST/X eol comments (quote-slash)
-     and multiline-delimiter comment (quote-less-less)."
+     and multiline-delimiter comment (quote-less-less).
+     Multiline-delimiter comments start with ''<<TOKEN and end in a line which starts with TOKEN (quote-quote being a double quote here)"
 
     |commentStream commentType commentText startPos endPos stillInComment anyNonBlank
      delimiter line|
@@ -3752,7 +3753,9 @@
             ].
         ].
     ].
+
     "Modified: / 30-07-2013 / 20:56:33 / cg"
+    "Modified (comment): / 28-07-2017 / 10:34:17 / cg"
 !
 
 skipToEndOfLineRememberingIn:commentStreamOrNil