TClonesArray::Sort()

Hello ROOTers,

is there a simple way to sort the contents of a clones array in descending order like in TList::Sort() beside using reverse iterators? This is often wanted for lists of jets, particles etc. where the first item is supposed to be the one with the highest Pt.

Many thanks,
Oliver