--- a/SegmentedOrderedCollection.st	Sat May 14 15:21:28 2016 +0200
+++ b/SegmentedOrderedCollection.st	Sun May 15 17:44:30 2016 +0200
@@ -401,15 +401,16 @@
 !SegmentedOrderedCollection methodsFor:'private'!
 
 splitSegmentAt:segmentIndex
-    |seg rightPart|
+    |seg segSize rightPart|
 
     seg := segments at:segmentIndex.
-
+    segSize := seg size.
+    
     rightPart := OrderedCollection new:20.
     rightPart grow:10.
-    rightPart replaceFrom:1 to:10 with:seg startingAt:(seg size - 9).
+    rightPart replaceFrom:1 to:10 with:seg startingAt:(segSize - 9).
 
-    seg removeFromIndex:(seg size - 9) toIndex:seg size.
+    seg removeFromIndex:(segSize - 9) toIndex:segSize.
 
     segments add:rightPart afterIndex:segmentIndex.
 ! !