Sorting bag occurrences by number instead of alphabetically in inspector

[Ducasse]

inspectionItems: aBuilder
    <inspectorPresentationOrder: 0 title: 'Items'> 

    ^ aBuilder newTable     
        addColumn: (SpStringTableColumn new 
            title: 'Items';
            evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ];
            beNotExpandable;
            beSortable;
            yourself);
        addColumn: (SpStringTableColumn new  
            title: 'Occurences'; 
            evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: (self occurrencesOf: each key) ];
            beSortable;
            compareFunction: [ :c1 :c2 | c1 value < c2 value ];
            yourself);
        items: contents associations;
        yourself