author | Stefan Vogel <sv@exept.de> |
Tue, 05 Jul 2016 15:36:46 +0200 | |
changeset 20069 | 4abc2e12bcec |
parent 20068 | b1cba7634463 |
child 20070 | d1635271cd90 |
Filename.st | file | annotate | diff | comparison | revisions |
--- a/Filename.st Tue Jul 05 11:26:10 2016 +0200 +++ b/Filename.st Tue Jul 05 15:36:46 2016 +0200 @@ -4190,12 +4190,12 @@ |sepString sub| sub := subName asString. + nameString size == 0 ifTrue:[ + ^ sub + ]. sepString := self species separatorString. - nameString size == 0 ifTrue:[ - ^ sub - ]. (nameString endsWith:sepString) ifTrue:[ - ^ nameString , sub + ^ nameString , sub ]. ^ nameString , sepString , sub