--- a/SegmentedOrderedCollection.st	Wed Jul 16 15:10:45 2014 +0200
+++ b/SegmentedOrderedCollection.st	Sun Jul 20 20:15:26 2014 +0200
@@ -332,6 +332,9 @@
                 (segments at:segIndex) removeFromIndex:(newSize - segStart + 1 + 1).
                 segments removeFromIndex:segIndex+1.
                 tally := newSize.
+                segments isEmpty ifTrue:[
+                    segments := OrderedCollection with:(OrderedCollection new).
+                ].
                 ^ self
             ].
             segStart := segEnd + 1.
@@ -393,10 +396,10 @@
 !SegmentedOrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.9 2014-04-27 13:25:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.10 2014-07-20 18:15:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.9 2014-04-27 13:25:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SegmentedOrderedCollection.st,v 1.10 2014-07-20 18:15:26 cg Exp $'
 ! !