--- a/Context.st	Fri Jan 21 11:33:05 2005 +0100
+++ b/Context.st	Fri Jan 21 17:49:43 2005 +0100
@@ -305,6 +305,15 @@
     "Modified: 23.10.1996 / 16:19:41 / cg"
 !
 
+argumentCount
+    "ANSI alias for numArgs: return the number of arguments to the Block/Method"
+
+%{  /* NOCONTEXT */
+
+    RETURN ( __MKSMALLINT( (__intVal(__INST(flags)) >> __NARG_SHIFT) & __NARG_MASK) );
+%}
+!
+
 at:n put:value
     super at:n put:value.
 
@@ -2199,7 +2208,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.128 2004-09-22 09:53:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.129 2005-01-21 16:49:43 stefan Exp $'
 ! !
 
 Context initialize!

--- a/Continuation.st	Fri Jan 21 11:33:05 2005 +0100
+++ b/Continuation.st	Fri Jan 21 17:49:43 2005 +0100
@@ -123,6 +123,12 @@
 
 !Continuation methodsFor:'invocation'!
 
+argumentCount
+    "VisualAge/ANSI compatibility"
+
+    ^ 1
+!
+
 numArgs
 	^ 1
 !
@@ -197,5 +203,5 @@
 !Continuation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.7 2004-09-27 10:16:12 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.8 2005-01-21 16:48:46 stefan Exp $'
 ! !

--- a/Message.st	Fri Jan 21 11:33:05 2005 +0100
+++ b/Message.st	Fri Jan 21 17:49:43 2005 +0100
@@ -180,6 +180,12 @@
     ^ args at:1
 !
 
+argumentCount
+    "VisualAge/ANSI compatibility: return the number of arguments of the message"
+
+    ^ args size
+!
+
 arguments
     "return the arguments of the message"
 
@@ -239,5 +245,5 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.31 2004-09-22 09:55:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.32 2005-01-21 16:49:05 stefan Exp $'
 ! !