--- a/Message.st	Tue Dec 04 14:23:21 2001 +0100
+++ b/Message.st	Tue Dec 04 14:23:30 2001 +0100
@@ -137,12 +137,24 @@
 
 !Message methodsFor:'accessing'!
 
+arg1
+    "return the first argument of the message"
+
+    ^ args at:1
+!
+
 arguments
     "return the arguments of the message"
 
     ^ args ? #()
 !
 
+numArgs
+    "return the number of arguments of the message"
+
+    ^ args size
+!
+
 selector
     "return the selector of the message"
 
@@ -193,5 +205,5 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.24 2001-10-01 21:00:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.25 2001-12-04 13:23:30 cg Exp $'
 ! !