--- a/Scanner.st	Sat Jun 29 13:27:58 2013 +0200
+++ b/Scanner.st	Mon Jul 01 19:13:55 2013 +0200
@@ -3476,7 +3476,8 @@
         anyNonBlank ifFalse:[
             commentType ~~ #eolComment ifTrue:[
                 self isDoIt ifFalse:[
-                    self warning:'empty comment' position:startPos to:endPos
+                    self warning:'empty comment' position:startPos to:endPos.
+                    parserFlags warnAboutBadComments:false.
                 ]
             ].
         ].
@@ -3593,11 +3594,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.298 2013-06-21 07:51:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.299 2013-07-01 17:13:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.298 2013-06-21 07:51:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.299 2013-07-01 17:13:55 cg Exp $'
 ! !