--- a/Parser.st	Fri Oct 24 15:15:08 2008 +0200
+++ b/Parser.st	Fri Oct 24 15:15:37 2008 +0200
@@ -3362,6 +3362,10 @@
         self warnPossibleIncompatibility:'''#'' might not be a valid selector in other smalltalk systems' position:pos1 to:pos2.
     ].
 
+    parserFlags warnAboutPossiblyUnimplementedSelectors ifFalse:[
+        ^ aSelectorString
+    ].
+
     "
      check if the selector is known at all
      - if not, it cannot be understood
@@ -3578,10 +3582,15 @@
         ].
         isSyntaxHighlighter ifFalse:[
             err := err , '\\This is a warning from the compiler - the code has not yet been executed/compiled.'.
-            newSelector := self correctSelector:aSelectorString 
+
+            self class doNotShowCompilerWarningAgainActionQuery handle:[:ex |
+                ex proceed.
+            ] do:[
+                newSelector := self correctSelector:aSelectorString 
                                 message:err withCRs 
                                 positions:posVector in:selClass for:receiver.
 "/            self warning:('#' , aSelectorString , '\\' , err) withCRs position:pos1 to:pos2.
+            ].
             ^ newSelector.
         ].
     ].
@@ -9382,7 +9391,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.582 2008-10-22 20:00:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.583 2008-10-24 13:15:37 cg Exp $'
 ! !
 
 Parser initialize!