--- a/Parser.st	Sun Jul 04 19:13:36 1999 +0200
+++ b/Parser.st	Sun Jul 04 19:48:24 1999 +0200
@@ -1974,7 +1974,7 @@
 "
 
     correctIt := self undefError:varName position:pos1 to:pos2.
-    correctIt == false ifTrue:[
+    (correctIt == false or:[correctIt == #continue]) ifTrue:[
         "/ no correction wanted.
 
         "/ lowerCase vars are added to the Undeclared dictionary,
@@ -2141,7 +2141,7 @@
     ^ rslt
 
     "Modified: / 22.1.1998 / 16:34:01 / stefan"
-    "Modified: / 12.6.1998 / 20:36:38 / cg"
+    "Modified: / 4.7.1999 / 19:24:10 / cg"
 !
 
 defineAsUndeclaredVariable:aName
@@ -4942,6 +4942,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.206 1999-06-29 18:37:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.207 1999-07-04 17:48:24 cg Exp $'
 ! !
 Parser initialize!