--- a/MessageNode.st	Tue Jul 26 00:35:11 2011 +0200
+++ b/MessageNode.st	Tue Jul 26 00:35:28 2011 +0200
@@ -329,7 +329,10 @@
 !
 
 receiver:r selector:s args:a lineno:l
+
+    receiver notNil ifTrue:[receiver parent: nil].
     receiver := r.
+    receiver notNil ifTrue:[receiver parent: self].
 
 "/ create the symbol only, if the symbol is already known in the system.
 "/ otherwise a lot of partial symbols will be created by the SyntaxHighlighter
@@ -338,11 +341,15 @@
 
     selector := s asSymbolIfInterned ? s.
 
+    argArray isNil ifFalse:[argArray do:[:each|each parent: nil]].
     argArray := a.
+    argArray isNil ifFalse:[argArray do:[:each|each parent: self]].
+
     lineNr := l.
     self checkInlinability.
 
-    "Modified: 2.7.1997 / 17:01:24 / cg"
+    "Modified: / 02-07-1997 / 17:01:24 / cg"
+    "Modified: / 20-07-2011 / 19:55:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 selector
@@ -3035,10 +3042,21 @@
     ^ true
 ! !
 
+!MessageNode methodsFor:'visiting'!
+
+acceptVisitor:aVisitor 
+    "Double dispatch back to the visitor, passing my type encoded in
+     the selector (visitor pattern)"
+
+    "stub code automatically generated - please change if required"
+
+    ^ aVisitor visitMessageNode:self
+! !
+
 !MessageNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.182 2011-07-15 06:38:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.183 2011-07-25 22:35:28 vrany Exp $'
 !
 
 version_SVN