--- a/Parser.st	Sat Dec 11 02:23:04 1993 +0100
+++ b/Parser.st	Thu Dec 16 11:57:56 1993 +0100
@@ -43,7 +43,7 @@
 a method - this is done by sending parseXXX message to a parser and asking
 the parser for referencedXVars or modifiedXVars (see SystemBrowser).
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.4 1993-12-11 01:09:03 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.5 1993-12-16 10:57:56 claus Exp $
 '!
 
 !Parser class methodsFor:'evaluating expressions'!
@@ -158,9 +158,9 @@
 
     tree := self withSelf:nil parseExpression:aString notifying:nil ignoreErrors:true. 
     (tree notNil and:[tree ~~ #Error]) ifTrue:[
-	tree isMessage ifTrue:[
+        tree isMessage ifTrue:[
             ^ tree selector
-	].
+        ].
     ].
 
     "mhmh, try expression without receiver"
@@ -913,7 +913,7 @@
             arg := self binaryExpression.
             (arg == #Error) ifTrue:[^ sel].
         ].
-	^ sel
+        ^ sel
     ].
     ^ nil
 !
@@ -1813,7 +1813,7 @@
     box initialText:(aList at:1).
     box list:aList.
     box okText:'replace'.
-    box abortText:'abort'.
+    "box abortText:'abort'."
     box action:[:aString | ^ aString].
     box showAtPointer.
     ^ nil