With the generic pipe object from my change-set in the original thread this gets you both - no need to define new methods:
highestNumberedChangeSet
"ChangeSorter highestNumberedChangeSet"
^self allChangeSetNames asPipe
select:[:aString | aString startsWithDigit];
collect:[:aString | aString initialIntegerOrNil];
ifNotEmpty:[:list | list max]