--- a/FuzzyMatcher.st	Thu Jul 13 20:48:51 2017 +0200
+++ b/FuzzyMatcher.st	Thu Jul 13 23:33:18 2017 +0200
@@ -59,7 +59,10 @@
                         match:eachClassName
                         ifScored: [ :score | matches add: eachClassName -> score ] 
                 ].
-                matches sortBySelector:#value.
+                matches sort:[:a :b |
+                        a value < b value
+                        or:[ a value = b value and:[ a key > b key]]
+                ].
 
                 list removeAll.
                 list addAllReversed:(matches