# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1095846956 -7200
# Node ID da7c9101e7a456c4a3264632a2749c842dd66f73
# Parent  78a49180f32ce94a2ff244ebd39ec256f6cf402a
*** empty log message ***

diff -r 78a49180f32c -r da7c9101e7a4 Message.st
--- a/Message.st	Wed Sep 22 11:53:14 2004 +0200
+++ b/Message.st	Wed Sep 22 11:55:56 2004 +0200
@@ -161,6 +161,17 @@
     ^ self sendTo:aReceiver
 ! !
 
+!Message methodsFor:'Compatibility-Squeak'!
+
+argument
+    "return the 1st argument of the message"
+
+    args size == 1 ifFalse:[
+        self error:'Not a 1-arg message'
+    ].
+    ^ args at:1
+! !
+
 !Message methodsFor:'accessing'!
 
 arg1
@@ -228,5 +239,5 @@
 !Message class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.30 2004-08-22 18:06:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Message.st,v 1.31 2004-09-22 09:55:56 cg Exp $'
 ! !
diff -r 78a49180f32c -r da7c9101e7a4 SequenceableCollection.st
--- a/SequenceableCollection.st	Wed Sep 22 11:53:14 2004 +0200
+++ b/SequenceableCollection.st	Wed Sep 22 11:55:56 2004 +0200
@@ -612,7 +612,7 @@
         however, having a common protocol with indexed collections
         often simplifies things."
 
-    ((index < 1) or:[index > self size]) ifTrue:[
+    (index between:1 and:self size) ifFalse:[
         ^ exceptionBlock value
     ].
     ^ self at:index
@@ -6606,7 +6606,7 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.213 2004-09-22 07:15:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.214 2004-09-22 09:55:16 cg Exp $'
 ! !
 
 SequenceableCollection initialize!