--- a/Parser.st	Tue Apr 23 23:10:17 2019 +0200
+++ b/Parser.st	Tue Apr 23 23:14:55 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -4928,9 +4930,16 @@
 !
 
 warnIfPossiblyUninitializedLocal:expr
+    parserFlags warnAboutPossiblyUninitializedLocals ifFalse:[
+        ^ self.
+    ].
     (self isPossiblyUninitializedLocal:expr) ifTrue:[
         self
             warning:'"',expr name,'" is uninitialized here (always nil)'
+            doNotShowAgainAction:[ 
+                parserFlags warnAboutPossiblyUninitializedLocals:false. 
+                ParserFlags warnAboutPossiblyUninitializedLocals:false. 
+            ]
             position:(expr startPosition) to:(expr endPosition).
         alreadyWarnedUninitializedVars isNil ifTrue:[
             alreadyWarnedUninitializedVars := Set new
@@ -4940,6 +4949,7 @@
 
     "Created: / 08-02-2019 / 17:14:16 / Claus Gittinger"
     "Modified (format): / 04-03-2019 / 12:20:01 / Stefan Vogel"
+    "Modified: / 23-04-2019 / 23:14:20 / Claus Gittinger"
 !
 
 warnSTXHereExtensionUsedAt:position