Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.358.mcz

==================== Summary ====================

Name: Monticello-ul.358
Author: ul
Time: 11 January 2010, 8:24:48.534 am
UUID: 0b3329ad-184d-6b44-ba4a-42d245594abc
Ancestors: Monticello-ul.357

- do not use SortedCollection for sorting

=============== Diff against Monticello-ar.355 ===============

Item was changed:
  ----- Method: MCVersionReader class>>file:streamDo: (in category 'reading') -----
  file: fileName streamDo: aBlock
+ 
+ 	^FileStream readOnlyFileNamed: fileName do: [ :file |
+ 		aBlock value: file ]!
- 	| file |
- 	^ 	[file := FileStream readOnlyFileNamed: fileName.
- 		aBlock value: file]
- 			ensure: [file close]!

Item was changed:
  ----- Method: MCFileRepositoryInspector>>versionList (in category 'morphic ui') -----
  versionList
+ 
+ 	| result |
+ 	result := selectedPackage
+ 		ifNil: [ versions copy ]
+ 		ifNotNil: [ versions select: [ :each | selectedPackage = each first ] ].
+ 	(self orderSpecs at: order) value ifNotNil: [ :sortBlock |
+ 		result sort: [:a :b | [ sortBlock value: a value: b ] on: Error do: [ true ] ] ].
+ 	^result 	replace: [ :each | self versionHighlight: each fourth ]!
- 	| result sortBlock |
- 	result := selectedPackage isNil
- 		ifTrue: [ versions ]
- 		ifFalse: [ versions select: [ :each | selectedPackage = each first ] ].
- 	sortBlock := (self orderSpecs at: order) value.
- 	sortBlock isNil ifFalse: [
- 		result := result asSortedCollection: [:a :b | [sortBlock value: a value: b] on: Error do: [true]]].
- 	^result := result 
- 		collect: [ :each | self versionHighlight: each fourth ]!