--- a/Parser.st	Mon Oct 23 15:58:31 2006 +0200
+++ b/Parser.st	Mon Oct 23 16:48:31 2006 +0200
@@ -3153,10 +3153,11 @@
         parserFlags warnings ifFalse:[^ aSelectorString].
     ].
     "/ do not check messages to undefined variables...
-    receiver isVariable ifTrue:[
-        receiver isUndeclared ifTrue:[
-            ^ aSelectorString
-        ]
+    (receiver isVariable and:[receiver isUndeclared]) ifTrue:[
+        ^ aSelectorString
+    ].
+    self isDoIt ifTrue:[
+        ^ aSelectorString
     ].
 
     canDefine := false.
@@ -3400,7 +3401,7 @@
     ^ aSelectorString
 
     "Modified: / 05-09-1995 / 17:02:11 / claus"
-    "Modified: / 23-10-2006 / 15:58:27 / cg"
+    "Modified: / 23-10-2006 / 16:48:43 / cg"
 !
 
 typeOfNode:aNode
@@ -8939,7 +8940,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.525 2006-10-23 13:58:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.526 2006-10-23 14:48:31 cg Exp $'
 ! !
 
 Parser initialize!