--- a/Message.st	Thu May 19 10:52:06 2016 +0200
+++ b/Message.st	Thu May 19 16:35:46 2016 +0200
@@ -196,8 +196,9 @@
 
 arguments
     "return the arguments of the message"
-
-    ^ args ? #()
+    
+    args isNil ifTrue:[^ #()].
+    ^ args.
 !
 
 arguments:argArray
@@ -280,6 +281,6 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.35 2015-02-20 21:27:06 cg Exp $'
+    ^ '$Header$'
 ! !