Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.510.mcz

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

Name: Monticello-bf.510
Author: bf
Time: 31 May 2012, 12:02:25.145 pm
UUID: 5eb5cc97-d633-4b0c-b426-44dc888f0522
Ancestors: Monticello-bf.509

- if package is nil, do not try to list version names for it (thanks, cbc)
- ordering by author made insensitive to case
- misc fix: replace an ifNil test by ifEmpty

=============== Diff against Monticello-bf.509 ===============

Item was changed:
  ----- Method: MCRepository>>highestNumberedVersionNameForPackageNamed: (in category 'versions') -----
  highestNumberedVersionNameForPackageNamed: aString 
  	^ (self versionNamesForPackageNamed: aString)
+ 		ifEmpty: [ self error: aString , ' not found in ' , self asString ]
+ 		ifNotEmptyDo:
+ 			[ : versionNames | versionNames detectMax:
- 		ifNil: [ self error: aString , ' not found in ' , self asString ]
- 		ifNotNilDo:
- 			[ : pkg | pkg detectMax:
  				[ : each | each versionNumber ] ]!

Item was changed:
  ----- Method: MCRepositoryInspector>>initializeVersionNames (in category 'initialize-release') -----
  initializeVersionNames
  	repository cacheAllFileNamesDuring:
+ 		[ versionNames := selectedPackage
+ 			ifNil: [Array new]
+ 			ifNotNil: [repository versionNamesForPackageNamed: selectedPackage].
- 		[ versionNames := repository versionNamesForPackageNamed: selectedPackage.
  		self refreshEmphasis ]!

Item was changed:
  ----- Method: MCRepositoryInspector>>orderSpecs (in category 'morphic ui') -----
  orderSpecs
  	^{
  		'unchanged' -> nil.
  		'order by package' -> [ :x :y | x packageName < y packageName ].
+ 		'order by author' -> [ :x :y | x author caseInsensitiveLessOrEqual: y author ].
- 		'order by author' -> [ :x :y | x author < y author ].
  		'order by version-string' -> [ :x :y | x versionNumber asString < y versionNumber asString ].
  		'order by version-number' -> [ :x :y | x versionNumber > y versionNumber ].
  		'order by filename' -> [ :x :y | x fileName < y fileName ].
  	}!