--- a/Scanner.st	Wed Sep 10 17:08:00 2003 +0200
+++ b/Scanner.st	Wed Sep 10 17:21:29 2003 +0200
@@ -2548,6 +2548,7 @@
         ignoreWarnings ifFalse:[
             warnSTXSpecialComment ifTrue:[
                 self warning:'end-of-line comments are a nonstandard feature of ST/X' 
+                     doNotShowAgainAction:[ WarnSTXSpecials := false ]
                      position:startPos to:(source position1Based).
                 "
                  only warn once
@@ -2666,7 +2667,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.177 2003-09-10 15:08:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.178 2003-09-10 15:21:18 cg Exp $'
 ! !
 
 Scanner initialize!