--- a/Scanner.st	Wed Sep 10 17:01:23 2003 +0200
+++ b/Scanner.st	Wed Sep 10 17:06:57 2003 +0200
@@ -1154,7 +1154,7 @@
         warnOldStyleAssignment ifTrue:[
             self 
                 warning:'Old style assignment - please change to use '':='''
-                doNotShowAgainAction:[ warnOldStyleAssignment := false ]
+                doNotShowAgainAction:[ WarnOldStyleAssignment := false ]
                 position:position to:position.
                 
             "
@@ -2666,7 +2666,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.175 2003-09-10 15:01:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.176 2003-09-10 15:06:57 cg Exp $'
 ! !
 
 Scanner initialize!