--- a/Tools__ChangeSetDiffList.st	Thu Jul 07 16:12:01 2011 +0200
+++ b/Tools__ChangeSetDiffList.st	Thu Jul 07 16:12:15 2011 +0200
@@ -258,19 +258,20 @@
     | newDiffs newList |
     self listHolder value ? #() do: [:entry|entry model removeDependent: self].
 
-    newList := SortedCollection new:16.
-    newList sortBlock:[:a :b | a asString < b asString ].
     newDiffs := self inGeneratorHolder value ? #().
     (newDiffs isKindOf: ChangeSetDiffComponent) ifTrue:
         [newDiffs := newDiffs diffs].
+    newList := OrderedCollection new:16.        
     newDiffs do:
         [:item|
         newList add:(ListEntry model: item application: self).
         item addDependent: self].
+
+    newList sort:[:a :b|a label < b label].
     self listHolder value:newList
 
     "Modified: / 06-07-2011 / 12:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-07-2011 / 13:48:49 / jv"
+    "Modified: / 07-07-2011 / 14:17:26 / jv"
 ! !
 
 !ChangeSetDiffList::ListEntry class methodsFor:'instance creation'!
@@ -335,7 +336,7 @@
 !ChangeSetDiffList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffList.st,v 1.3 2011-07-07 12:51:36 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffList.st,v 1.4 2011-07-07 14:12:15 vrany Exp $'
 !
 
 version_SVN