Sorting Multi-selection enhanced list views

There is a small problem with displaying the selection is a Multi-select
enhanced list view. Demo.

Evaluate...

l := ListPresenter show: 'Enhanced list view'.
l list: (0 to: 100) asOrderedCollection

select 50 and keep clicking the column header. The selected item is
always visible.

Now try....

l := ListPresenter show: 'Multi-selection enhanced list view'.
l list: (0 to: 100) asOrderedCollection

The list is always displayed with either 1 or 100 as the first item in
the list and the selection is not visible.

An easy fix that appears to work? is ....

Change the list statement in ListView>>lvnColumnClick: to

sel notNil
    ifTrue:
        [self
            selection: sel;
            ensureSelectionVisible].

--
Ian