RecentMessageList gets troubled when we use version

When I open RecentMessageList and selection sorted by first I get a DNU.

I fixed it, but I after building the list is quite slow.

And also this is strange because under 1.4 I get a lot of 1.3 changes.

Stef

findIndexOfVersionOf: aMethodReference

| list timeStamp|
timeStamp := aMethodReference timeStamp.
list := self versionsHistoryList.
list size = 1
ifTrue: [^1].
1 to: list size - 1 do: [:i || current next |
current := list at: i.
next := list at: (i+1).
((current value asDateAndTime <= timeStamp asDateAndTime) & (next value asDateAndTime> timeStamp asDateAndTime))
ifTrue: [^i]].
^list size.