# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1052229532 -7200
# Node ID d8c34d91199ed4e12b1172e236ad022e038b917b
# Parent  cb80600efd76064ede4935b9ebc68f8071b3648f
checkin from browser

diff -r cb80600efd76 -r d8c34d91199e Parser.st
--- a/Parser.st	Tue May 06 14:24:35 2003 +0200
+++ b/Parser.st	Tue May 06 15:58:52 2003 +0200
@@ -4918,14 +4918,12 @@
     sel := self degeneratedKeywordExpressionForSelector.
     sel notNil ifTrue:[ ^ sel].
 
+    rec isAssignment ifTrue:[
+        rec := rec expression
+    ].
     rec isMessage ifTrue:[
         ^ rec selector
     ].        
-    rec isAssignment ifTrue:[
-        rec expression isMessage ifTrue:[
-            ^ rec expression selector
-        ]
-    ].
     ^ nil
 !
 
@@ -7323,7 +7321,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.383 2003-05-06 12:24:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.384 2003-05-06 13:58:52 cg Exp $'
 ! !
 
 Parser initialize!