diff -r 5a2d40912637 -r 113a6a911eb5 StringCollection.st --- a/StringCollection.st Sun Nov 12 20:15:48 2017 +0100 +++ b/StringCollection.st Tue Nov 14 16:41:52 2017 +0100 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1989 by Claus Gittinger All Rights Reserved @@ -215,7 +213,8 @@ numberOfLines := aString occurrencesOf:delimiter. numberOfLines == 0 ifTrue:[ "/ check if it's a return-delimited string - (aString occurrencesOf:(Character return)) > 0 ifTrue:[ + numberOfLines := aString occurrencesOf:(Character return). + numberOfLines > 0 ifTrue:[ delimiter := Character return. ]. ]. @@ -231,7 +230,7 @@ stop == 0 ifTrue:[ self at:lineNr put:(aString copyFrom:start). self from:lineNr+1 to:numberOfLines put:''. - ^ self. + ^ self ]. self at:lineNr put:(aString copyFrom:start to:stop-1). @@ -240,6 +239,7 @@ "Modified: / 25-07-2012 / 18:52:58 / cg" "Modified (format): / 13-02-2017 / 20:31:40 / cg" + "Modified (format): / 14-11-2017 / 16:26:27 / mawalch" ! ! !StringCollection methodsFor:'copying'!