--- a/Parser.st	Thu Sep 21 13:41:22 2000 +0200
+++ b/Parser.st	Fri Sep 22 01:53:14 2000 +0200
@@ -4235,7 +4235,9 @@
             ^ #Error
         ].
 
-        self markVariable:var from:pos to:pos + name size - 1.
+        errorFlag ~~ true ifTrue:[
+            self markVariable:var from:pos to:pos + name size - 1.
+        ].
 
         ((tokenType ~~ $_) and:[tokenType ~~ #':=']) ifTrue:[
             parseForCode ifFalse:[
@@ -4720,8 +4722,12 @@
     pos2 := pos1+tokenName size-1.
     self markUnknownIdentifierFrom:pos1 to:pos2.
 
-    v := self correctVariable.
-    (v ~~ #Error) ifTrue:[^ v].
+    parseForCode == true ifTrue:[    
+        v := self correctVariable.
+        (v ~~ #Error) ifTrue:[^ v].
+    ].
+
+    errorFlag := true.
 
     parseForCode ifFalse:[
         self rememberGlobalUsed:tokenName
@@ -5608,6 +5614,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.263 2000-09-21 09:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.264 2000-09-21 23:53:14 cg Exp $'
 ! !
 Parser initialize!