--- 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!