--- a/Scanner.st	Tue Feb 28 22:24:43 2012 +0100
+++ b/Scanner.st	Wed Feb 29 14:06:49 2012 +0100
@@ -1423,7 +1423,7 @@
                     do:realAction
             ].
     ].
-    doNotShowAgainForThisMethodAction notNil ifTrue:[
+    (doNotShowAgainForThisMethodAction notNil and:[ self isDoIt not ]) ifTrue:[
         real2Action := warnAction.
         warnAction := 
             [
@@ -1436,7 +1436,6 @@
     warnAction value.
     ^ answer
 
-    "Modified: / 30-01-2011 / 13:05:25 / cg"
     "Created: / 28-02-2012 / 08:42:01 / cg"
 !
 
@@ -3424,11 +3423,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.278 2012-02-28 17:25:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.279 2012-02-29 13:06:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.278 2012-02-28 17:25:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.279 2012-02-29 13:06:49 cg Exp $'
 ! !
 
 Scanner initialize!