--- a/MessageNode.st	Tue Apr 13 11:51:11 2010 +0200
+++ b/MessageNode.st	Tue Apr 13 11:52:56 2010 +0200
@@ -659,6 +659,8 @@
 !
 
 codeOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
+    "most work is in checking for inlinable code here."
+
     |recType nargs isBuiltIn litIndex cls clsLitIndex code isSpecial
      specialCode stackTop arg1 arg2 arg3 isSuper realReceiver 
      noSendDrop alreadyDropped
@@ -894,7 +896,7 @@
         ^ self
     ].
 
-    "no - generate a send"
+    "not inlinable - generate a send"
 
     stackTop := nil.
 
@@ -2995,9 +2997,9 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.173 2010-04-13 09:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.174 2010-04-13 09:52:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.173 2010-04-13 09:51:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.174 2010-04-13 09:52:56 cg Exp $'
 ! !