--- a/MessageSend.st	Thu Mar 20 21:18:28 1997 +0100
+++ b/MessageSend.st	Thu Mar 20 21:55:56 1997 +0100
@@ -118,6 +118,19 @@
 
 !MessageSend class methodsFor:'instance creation'!
 
+receiver:r selector:sel
+    "create & return a new instance which can be used to
+     send sel to some receiver, r"
+
+    ^ self receiver:r selector:sel arguments:nil
+
+    "
+     (MessageSend receiver:nil selector:#foo) value
+    "
+
+    "Modified: 20.3.1997 / 21:55:16 / cg"
+!
+
 receiver:r selector:sel arguments:argArray
     "create & return a new instance which can be used to
      send sel with arguments to some receiver, r"
@@ -128,7 +141,11 @@
     newMessage receiver:r.
     ^ newMessage
 
-    "Modified: 23.4.1996 / 16:52:33 / cg"
+    "
+     (MessageSend receiver:nil selector:#foo: arguments:#(1)) value
+    "
+
+    "Modified: 20.3.1997 / 21:55:44 / cg"
 ! !
 
 !MessageSend methodsFor:'accessing'!
@@ -213,5 +230,5 @@
 !MessageSend class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.12 1996-04-27 18:01:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.13 1997-03-20 20:55:56 cg Exp $'
 ! !