--- a/MessageNode.st	Fri Jan 14 11:07:50 2005 +0100
+++ b/MessageNode.st	Fri Jan 21 17:47:28 2005 +0100
@@ -2948,6 +2948,12 @@
 
 !MessageNode methodsFor:'queries'!
 
+argumentCount
+    "VisualAge/ANSI compatibility - same as numArgs"
+
+    ^ argArray size
+!
+
 collectBlocksInto:aCollection
     receiver collectBlocksInto:aCollection.
     argArray size > 0 ifTrue:[
@@ -2990,5 +2996,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.141 2004-07-07 09:17:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.142 2005-01-21 16:47:28 stefan Exp $'
 ! !