--- a/Parser.st	Wed May 10 04:27:38 1995 +0200
+++ b/Parser.st	Fri May 12 19:30:55 1995 +0200
@@ -41,7 +41,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.39 1995-05-10 02:27:38 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.40 1995-05-12 17:30:42 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -62,7 +62,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.39 1995-05-10 02:27:38 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.40 1995-05-12 17:30:42 claus Exp $
 "
 !
 
@@ -442,9 +442,14 @@
 		    s := aStringOrStream
 		].
 		sReal := 'doIt ^[\' withCRs , s , '\] value' withCRs.
-		m := self compile:sReal forClass:anObject class
-			  inCategory:'_temporary_' notifying:requestor 
-			  install:false skipIfSame:false silent:true.
+		m := self 
+			compile:sReal 
+			forClass:anObject class
+			inCategory:'_temporary_' 
+			notifying:requestor 
+			install:false 
+			skipIfSame:false 
+			silent:true.
 		m notNil ifTrue:[
 		    m ~~ #Error ifTrue:[
 			"
@@ -1848,8 +1853,8 @@
 	sel := self selectorCheck:tokenName for:receiver position:pos to:pos2.
 	try := UnaryNode receiver:receiver selector:sel.
 	(try isMemberOf:String) ifTrue:[
+	    self parseError:try position:pos to:pos2.
 	    errorFlag := false. "ok, user wants it - so he'll get it"
-	    self parseError:try position:pos to:pos2.
 	    receiver := UnaryNode receiver:receiver selector:sel fold:false.
 	] ifFalse:[
 	    receiver := try