--- a/SequenceableCollection.st	Tue May 15 21:35:04 2012 +0200
+++ b/SequenceableCollection.st	Wed May 16 11:17:01 2012 +0200
@@ -654,6 +654,26 @@
     "Created: / 22-10-2008 / 21:25:35 / cg"
 ! !
 
+!SequenceableCollection methodsFor:'Compatibility-V''Age'!
+
+replaceFrom:start to:end withObject:anObject
+    "Replace the elements from start to end with anObject.
+     Return the receiver."
+
+    self from:start to:end put:anObject.
+    ^ self.
+
+    "
+     |a|
+
+     a := Array new: 10.
+     a replaceFrom:3 to:7 withObject:999.
+     a
+    "
+
+    "Created: / 16-05-2012 / 11:13:55 / cg"
+! !
+
 !SequenceableCollection methodsFor:'Compatibility-VW'!
 
 replaceElementsFrom:start to:stop withArray:anArray startingAt:repStart
@@ -8647,8 +8667,12 @@
 
 !SequenceableCollection class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.320 2012-05-16 09:17:01 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.319 2012-05-08 11:26:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.320 2012-05-16 09:17:01 cg Exp $'
 ! !
 
 SequenceableCollection initialize!