SequenceableCollection.st
changeset 20764 891db338d088
parent 20391 beea43e4a428
child 20977 733dba5117a0
child 21024 8734987eb5c7
--- a/SequenceableCollection.st	Thu Nov 03 21:06:17 2016 +0100
+++ b/SequenceableCollection.st	Thu Nov 03 21:32:59 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -450,6 +448,7 @@
     ^ self == SequenceableCollection
 ! !
 
+
 !SequenceableCollection methodsFor:'Compatibility-Squeak'!
 
 allButFirst
@@ -6981,7 +6980,8 @@
         s := self species new:size withAll:padElement.
         s replaceFrom:(size - len + 1) with:self.
         ^ s
-    ]
+    ].
+    ^ self
 
     "
      'foo' leftPaddedTo:10 with:$.
@@ -7874,6 +7874,7 @@
     "Created: 14.2.1997 / 16:13:03 / cg"
 ! !
 
+
 !SequenceableCollection methodsFor:'searching'!
 
 detect:aBlock startingAt:startIndex