# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1392216003 -3600
# Node ID fcc49f75d8de474fcd892b1192033b1fd6b005c6
# Parent  294df16bde032aa35c4a496a85bee98279f1c864
class: Collection
changed: #keysOfSmallest: (send #max instead of #min)

diff -r 294df16bde03 -r fcc49f75d8de Collection.st
--- a/Collection.st	Wed Feb 12 15:38:14 2014 +0100
+++ b/Collection.st	Wed Feb 12 15:40:03 2014 +0100
@@ -4211,13 +4211,13 @@
             [:k :el | 
                 nSmallest add:(el -> k).
                 nSmallest size == n ifTrue:[
-                    maxInSmallest := nSmallest min key.
+                    maxInSmallest := nSmallest max key.
                     loopAction := 
                         [:k :el |
                             el < maxInSmallest ifTrue:[
                                 nSmallest removeLast.
                                 nSmallest add:(el -> k).
-                                maxInSmallest := nSmallest min key
+                                maxInSmallest := nSmallest max key
                             ].
                         ]
                 ].
@@ -5374,11 +5374,11 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.323 2014-02-12 14:35:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.324 2014-02-12 14:40:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.323 2014-02-12 14:35:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.324 2014-02-12 14:40:03 cg Exp $'
 ! !