--- a/MessageSend.st	Fri Jan 21 17:49:43 2005 +0100
+++ b/MessageSend.st	Fri Jan 21 17:51:28 2005 +0100
@@ -161,9 +161,15 @@
     "Modified: 20.3.1997 / 21:55:44 / cg"
 ! !
 
+!MessageSend methodsFor:'accessing'!
 
+argumentCount
+    "VisualAge/ANSI compatibility: return the number of arguments of the message"
 
-!MessageSend methodsFor:'accessing'!
+    ^ selector argumentCount
+
+    "Modified: 23.4.1996 / 16:52:51 / cg"
+!
 
 numArgs
     "return the number of arguments of the message"
@@ -246,5 +252,5 @@
 !MessageSend class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.19 2004-09-22 10:03:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.20 2005-01-21 16:50:52 stefan Exp $'
 ! !