--- a/MessageSend.st	Wed Dec 17 11:40:41 2008 +0100
+++ b/MessageSend.st	Wed Dec 17 17:23:19 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Message subclass:#MessageSend
@@ -228,6 +227,20 @@
      instead of the original arguments"
 
     ^ receiver perform:selector withArguments:argArray
+!
+
+valueWithOptionalArgument:arg
+    "evaluate the messagesend.
+     Optionally pass an argument (if the selector is for a one arg message)."
+
+    ^ receiver perform:selector withOptionalArgument:arg
+!
+
+valueWithOptionalArgument:arg1 and:arg2
+    "evaluate the messagesend.
+     Optionally pass up to two arguments."
+
+    ^ receiver perform:selector withOptionalArgument:arg1 and:arg2
 ! !
 
 !MessageSend methodsFor:'printing & storing'!
@@ -252,5 +265,5 @@
 !MessageSend class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.20 2005-01-21 16:50:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.21 2008-12-17 16:23:19 cg Exp $'
 ! !