--- a/Message.st	Fri Dec 15 11:41:18 2000 +0100
+++ b/Message.st	Fri Dec 15 17:48:21 2000 +0100
@@ -91,6 +91,12 @@
     ^ self basicNew setSelector:aSymbol arguments:(Array with:anArg)
 !
 
+selector:aSymbol argument:arg1 argument:arg2
+    "return a new message object for a send with two arguments"
+
+    ^ self basicNew setSelector:aSymbol arguments:(Array with:arg1 with:arg2)
+!
+
 selector:aSymbol arguments:argArray
     "return a new message object for a send with many arguments"
 
@@ -187,5 +193,5 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.22 2000-09-05 18:50:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.23 2000-12-15 16:48:21 cg Exp $'
 ! !