--- a/Message.st	Thu May 31 17:35:50 2007 +0200
+++ b/Message.st	Thu May 31 17:51:35 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Message
@@ -192,6 +191,14 @@
     ^ args ? #()
 !
 
+arguments:argArray
+    "set arguments of the receiver"
+
+    args := argArray
+
+    "Created: / 31-05-2007 / 17:53:10 / cg"
+!
+
 numArgs
     "return the number of arguments of the message"
 
@@ -202,6 +209,12 @@
     "return the selector of the message"
 
     ^ selector
+!
+
+selector:aSymbol
+    selector := aSymbol
+
+    "Created: / 31-05-2007 / 17:53:06 / cg"
 ! !
 
 !Message methodsFor:'printing & storing'!
@@ -245,5 +258,5 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.32 2005-01-21 16:49:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.33 2007-05-31 15:51:35 cg Exp $'
 ! !