--- a/SeqCollSorter.st	Tue Feb 06 18:49:00 1996 +0100
+++ b/SeqCollSorter.st	Tue Feb 06 20:01:35 1996 +0100
@@ -11,8 +11,8 @@
 "
     a SequenceableCollectionSorter allows for anything which responds to
     keyed at/atPut messages to be sorted just like a SequenceableCollection.
-    Since the access messages can be customized, even non collection (or
-    collection simulators) can be sorted with this.
+    Since the access messages can be customized, even non collections
+    (or collection simulators, models etc.) can be sorted with these sorters.
     (use #atSelector: / #putSelector: and #sizeSelector: for customization).
 
     As with collection sorting, the sortBlock can be specified and defaults to
@@ -154,8 +154,8 @@
     middleElement := collection at:((b + e) // 2).
 
     [b < e] whileTrue:[
-        [b < end and:[(collection at:b) < middleElement]] whileTrue:[b := b + 1].
-        [e > begin and:[middleElement < (collection at:e)]] whileTrue:[e := e - 1].
+        [b < end and:[(collection at:b) <= middleElement]] whileTrue:[b := b + 1].
+        [e > begin and:[middleElement <= (collection at:e)]] whileTrue:[e := e - 1].
 
         (b <= e) ifTrue:[
             (b == e) ifFalse:[
@@ -169,8 +169,8 @@
     (begin < e) ifTrue:[self defaultSort:begin to:e].
     (b < end) ifTrue:[self defaultSort:b to:end]
 
-    "Modified: 6.2.1996 / 15:42:51 / cg"
     "Created: 6.2.1996 / 15:44:37 / cg"
+    "Modified: 6.2.1996 / 18:00:56 / cg"
 !
 
 nonDefaultSort:inBegin to:inEnd
@@ -250,6 +250,6 @@
 !SequenceableCollectionSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/SeqCollSorter.st,v 1.1 1996-02-06 17:49:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/SeqCollSorter.st,v 1.2 1996-02-06 19:01:35 cg Exp $'
 ! !
 SequenceableCollectionSorter initialize!

--- a/SequenceableCollectionSorter.st	Tue Feb 06 18:49:00 1996 +0100
+++ b/SequenceableCollectionSorter.st	Tue Feb 06 20:01:35 1996 +0100
@@ -11,8 +11,8 @@
 "
     a SequenceableCollectionSorter allows for anything which responds to
     keyed at/atPut messages to be sorted just like a SequenceableCollection.
-    Since the access messages can be customized, even non collection (or
-    collection simulators) can be sorted with this.
+    Since the access messages can be customized, even non collections
+    (or collection simulators, models etc.) can be sorted with these sorters.
     (use #atSelector: / #putSelector: and #sizeSelector: for customization).
 
     As with collection sorting, the sortBlock can be specified and defaults to
@@ -154,8 +154,8 @@
     middleElement := collection at:((b + e) // 2).
 
     [b < e] whileTrue:[
-        [b < end and:[(collection at:b) < middleElement]] whileTrue:[b := b + 1].
-        [e > begin and:[middleElement < (collection at:e)]] whileTrue:[e := e - 1].
+        [b < end and:[(collection at:b) <= middleElement]] whileTrue:[b := b + 1].
+        [e > begin and:[middleElement <= (collection at:e)]] whileTrue:[e := e - 1].
 
         (b <= e) ifTrue:[
             (b == e) ifFalse:[
@@ -169,8 +169,8 @@
     (begin < e) ifTrue:[self defaultSort:begin to:e].
     (b < end) ifTrue:[self defaultSort:b to:end]
 
-    "Modified: 6.2.1996 / 15:42:51 / cg"
     "Created: 6.2.1996 / 15:44:37 / cg"
+    "Modified: 6.2.1996 / 18:00:56 / cg"
 !
 
 nonDefaultSort:inBegin to:inEnd
@@ -250,6 +250,6 @@
 !SequenceableCollectionSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.1 1996-02-06 17:49:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.2 1996-02-06 19:01:35 cg Exp $'
 ! !
 SequenceableCollectionSorter initialize!