--- a/Scanner.st	Tue May 09 11:40:03 2006 +0200
+++ b/Scanner.st	Tue May 09 11:43:53 2006 +0200
@@ -1320,10 +1320,12 @@
     "warn about a common beginners mistake"
 
     ignoreWarnings ifFalse:[
-        parserFlags warnCommonMistakes ifTrue:[
-            self 
-                warning:msg
-                position:pos1 to:pos2.
+        parserFlags warnings ifTrue:[
+            parserFlags warnCommonMistakes ifTrue:[
+                self 
+                    warning:msg
+                    position:pos1 to:pos2.
+            ]
         ]
     ]
 
@@ -3080,7 +3082,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.219 2006-03-16 08:24:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.220 2006-05-09 09:43:53 cg Exp $'
 ! !
 
 Scanner initialize!