--- a/SequenceableCollection.st	Tue Oct 13 13:23:43 2015 +0200
+++ b/SequenceableCollection.st	Tue Oct 13 13:26:53 2015 +0200
@@ -401,6 +401,7 @@
 ! !
 
 
+
 !SequenceableCollection methodsFor:'Compatibility-Squeak'!
 
 allButFirst
@@ -3781,11 +3782,12 @@
     |newCollection newSize|
 
     newSize := stopIndex - startIndex + 1.
-    newSize < 0 ifTrue:[
-        newSize := 0
+    newSize <= 0 ifTrue:[
+        ^ self copyEmpty:0.
     ].
     newCollection := self copyEmptyAndGrow:newSize.
     newCollection replaceFrom:1 to:newSize with:self startingAt:startIndex.
+
     ^ newCollection
 
     "
@@ -3794,7 +3796,7 @@
      (1 to:10) copyFrom:2 to:5
 
      '1234567890' copyFrom:2 to:15
-     (1 to:10) copyFrom:12 to:15
+     (1 to:10) copyFrom:12 to:1
     "
 !
 
@@ -4793,6 +4795,8 @@
      #(9 8 7 6 5 4 3 2 1) asSortedCollection upTo:5
      '1234.5678' upTo:$.
      '1234'      upTo:$.
+     '.'      upTo:$.
+
 
      raises an error: