--- a/SegmentedOrderedCollection.st	Thu Jul 11 17:02:16 2013 +0200
+++ b/SegmentedOrderedCollection.st	Sun Jul 14 12:13:11 2013 +0200
@@ -167,6 +167,13 @@
     tally := tally + 1.
 !
 
+removeAll
+    "remove all elements from the receiver. Returns the receiver."
+
+    segments := OrderedCollection with:(OrderedCollection new:10).
+    tally := 0.
+!
+
 removeFirst
     "remove the first element from the collection; return the element.
      If there is no element in the receiver collection, raise an error."
@@ -374,10 +381,10 @@
 !SegmentedOrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.5 2013-06-25 11:23:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.6 2013-07-14 10:13:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.5 2013-06-25 11:23:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.6 2013-07-14 10:13:11 cg Exp $'
 ! !