--- a/Parser.st	Sat Mar 02 19:11:15 1996 +0100
+++ b/Parser.st	Mon Mar 04 11:07:10 1996 +0100
@@ -1241,37 +1241,37 @@
 
 "OLD:
     (varName at:1) isLowercase ifTrue:[
-	correctIt := self undefError:varName position:pos1 to:pos2.
-	correctIt ifFalse:[^ #Error]
+        correctIt := self undefError:varName position:pos1 to:pos2.
+        correctIt ifFalse:[^ #Error]
     ] ifFalse:[
-	correctIt := self warning:(varName , ' is undefined') position:pos1 to:pos2.
-	correctIt ifFalse:[
-	    ^ VariableNode type:#GlobalVariable name:(varName asSymbol)
-	]
+        correctIt := self warning:(varName , ' is undefined') position:pos1 to:pos2.
+        correctIt ifFalse:[
+            ^ VariableNode type:#GlobalVariable name:(varName asSymbol)
+        ]
     ].
 "
 
     correctIt := self undefError:varName position:pos1 to:pos2.
     correctIt ifFalse:[
-	(varName at:1) isLowercase ifTrue:[
-	    self warning:'no automatic global declaration of lowercase variables' position:pos1 to:pos2.
-	    ^ #Error
-	] ifFalse:[
-	    ^ VariableNode type:#GlobalVariable name:(varName asSymbol)
-	]
+        (varName at:1) isLowercase ifTrue:[
+"/            self warning:'no automatic global declaration of lowercase variables' position:pos1 to:pos2.
+            ^ #Error
+        ] ifFalse:[
+            ^ VariableNode type:#GlobalVariable name:(varName asSymbol)
+        ]
     ].
 
     suggestedNames := self findBestVariablesFor:varName.
     suggestedNames notNil ifTrue:[
-	newName := self askForCorrection:'correct variable to: ' fromList:suggestedNames.
-	newName isNil ifTrue:[^ #Error].
+        newName := self askForCorrection:'correct variable to: ' fromList:suggestedNames.
+        newName isNil ifTrue:[^ #Error].
 "
-	newName := suggestedNames at:1.
-	(self confirm:('confirm correction to: ' , newName)) ifFalse:[^ #Error]
+        newName := suggestedNames at:1.
+        (self confirm:('confirm correction to: ' , newName)) ifFalse:[^ #Error]
 "
     ] ifFalse:[
-	self information:'no good correction found'.
-	^ #Error
+        self information:'no good correction found'.
+        ^ #Error
     ].
 
     "
@@ -1289,7 +1289,7 @@
     tokenName := newName.
     ^ self variableOrError
 
-    "Modified: 22.12.1995 / 19:02:01 / cg"
+    "Modified: 27.2.1996 / 19:53:36 / cg"
 !
 
 findBestSelectorsFor:aString
@@ -3354,6 +3354,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.70 1996-03-01 12:53:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.71 1996-03-04 10:07:10 cg Exp $'
 ! !
 Parser initialize!