--- a/Scanner.st	Tue May 06 11:54:41 2014 +0200
+++ b/Scanner.st	Tue May 06 18:37:28 2014 +0200
@@ -1758,7 +1758,8 @@
         parserFlags warnPossibleIncompatibilities ifTrue:[
             self 
                 warning:('Possible incompatibility.\\' , msg) withCRs
-                doNotShowAgainAction:[ ParserFlags warnPossibleIncompatibilities:false ]
+                doNotShowAgainAction:[ ParserFlags warnPossibleIncompatibilities:false.
+                                       parserFlags warnPossibleIncompatibilities:false ]
                 position:pos1 to:pos2.
         ]
     ]
@@ -3670,11 +3671,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.314 2014-05-02 14:11:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.315 2014-05-06 16:37:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.314 2014-05-02 14:11:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.315 2014-05-06 16:37:28 cg Exp $'
 ! !