--- a/DoWhatIMeanSupport.st	Sat Mar 07 12:27:56 2009 +0100
+++ b/DoWhatIMeanSupport.st	Mon Mar 09 14:34:37 2009 +0100
@@ -760,7 +760,17 @@
                                                            ifFalse:[best]
                                                     ].
 
-    allDistances sort:[:a :b | a value > b value].
+    allDistances sort:[:a :b | 
+                                a value > b value ifTrue:[
+                                    true
+                                ] ifFalse:[
+                                    a value = b value ifTrue:[
+                                        a key < b key
+                                    ] ifFalse:[
+                                        false
+                                    ]
+                                ]
+                      ].
     allTheBest := allDistances select:[:entry | entry value >= (bestAssoc value * 0.5)].
     allTheBest size > 15 ifTrue:[
         allTheBest := allDistances select:[:entry | entry value >= (bestAssoc value * 0.8)].
@@ -1766,5 +1776,5 @@
 !DoWhatIMeanSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.49 2008-11-26 15:43:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DoWhatIMeanSupport.st,v 1.50 2009-03-09 13:34:37 cg Exp $'
 ! !