--- a/Scanner.st	Tue Feb 28 15:14:34 2012 +0100
+++ b/Scanner.st	Tue Feb 28 18:25:27 2012 +0100
@@ -3241,7 +3241,7 @@
         self markCommentFrom:startPos to:endPos.
         commentType := #eolComment.
         lineNr := lineNr + 1.
-        self warnSTXSpecialCommentAt:startPos to:endPos.
+        self warnSTXSpecialCommentAt:startPos to:endPos-1.
         outStream notNil ifTrue:[
             outStream cr.
             outCol := 1
@@ -3314,7 +3314,7 @@
         ].
     ].
 
-    "Modified: / 31.3.1998 / 23:45:26 / cg"
+    "Modified: / 28-02-2012 / 16:35:38 / cg"
 !
 
 skipToEndOfLineRememberingIn:commentStreamOrNil
@@ -3424,11 +3424,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.277 2012-02-28 14:04:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.278 2012-02-28 17:25:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.277 2012-02-28 14:04:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.278 2012-02-28 17:25:27 cg Exp $'
 ! !
 
 Scanner initialize!