--- a/Scanner.st	Wed Sep 10 17:06:57 2003 +0200
+++ b/Scanner.st	Wed Sep 10 17:08:00 2003 +0200
@@ -1008,7 +1008,7 @@
     ^ false
 !
 
-notifyWarning:aMessage doNotShowAgainAction:flagAction position:position to:endPos
+notifyWarning:aMessage doNotShowAgainAction:doNotShowAgainAction position:position to:endPos
     "notify requestor of an warning - if there is no requestor
      put it on the transcript.
      Return the result passed back by the requestor."
@@ -1022,9 +1022,9 @@
         ^ false
     ].
 
-    flagAction notNil ifTrue:[
+    doNotShowAgainAction notNil ifTrue:[
         DoNotShowCompilerWarningAgainActionQuery 
-            answer:flagAction
+            answer:doNotShowAgainAction
             do:[
                 answer := requestor warning:aMessage position:position to:endPos from:self
             ]
@@ -1206,12 +1206,12 @@
     ^ self warning:aMessage position:tokenPosition
 !
 
-warning:aMessage doNotShowAgainAction:flagHolder position:position to:endPos
+warning:aMessage doNotShowAgainAction:doNotShowAgainAction position:position to:endPos
     "a warning"
 
     ^ self 
         notifyWarning:((self warningMessagePrefix) , ' ' , aMessage)
-        doNotShowAgainAction:flagHolder
+        doNotShowAgainAction:doNotShowAgainAction
         position:position to:endPos
 !
 
@@ -2666,7 +2666,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.176 2003-09-10 15:06:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.177 2003-09-10 15:08:00 cg Exp $'
 ! !
 
 Scanner initialize!