Chris Muller uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-cmm.534.mcz

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

Name: Collections-cmm.534
Author: cmm
Time: 7 September 2013, 12:09:48.775 pm
UUID: 81387474-1ded-423a-b2b9-1def9afbb228
Ancestors: Collections-cmm.533

Levente's suggestion.

=============== Diff against Collections-cmm.533 ===============

Item was changed:
  ----- Method: Number>>compareSafely: (in category '*collections') -----
+ compareSafely: aNumber 
+ 	^ aNumber isNumber
+ 		ifTrue: [ self < aNumber ]
+ 		ifFalse: [ super compareSafely: aNumber ]!
- compareSafely: aNumber
- 	^ aNumber isNumber and: [ self < aNumber ]!

Item was changed:
  ----- Method: String>>compareSafely: (in category '*collections') -----
  compareSafely: aString 
+ 	^ aString isString
+ 		ifTrue: [ self < aString ]
+ 		ifFalse: [ super compareSafely: aString ]!
- 	^ aString isString and: [ self < aString ]!