--- a/SequenceableCollectionSorter.st	Tue Feb 06 20:01:35 1996 +0100
+++ b/SequenceableCollectionSorter.st	Tue Feb 06 20:07:01 1996 +0100
@@ -138,7 +138,8 @@
 
 defaultSort:inBegin to:inEnd
     "actual sort worker for sorting when the sortBlock is nil (or the default)
-     and default atSelector/putSelectors are to be used."
+     and default atSelector/putSelectors are to be used.
+     This will execute slightly faster, since no #perform-indirection is needed."
 
     |begin   "{ Class: SmallInteger }"
      end     "{ Class: SmallInteger }"
@@ -170,12 +171,12 @@
     (b < end) ifTrue:[self defaultSort:b to:end]
 
     "Created: 6.2.1996 / 15:44:37 / cg"
-    "Modified: 6.2.1996 / 18:00:56 / cg"
+    "Modified: 6.2.1996 / 18:06:23 / cg"
 !
 
 nonDefaultSort:inBegin to:inEnd
     "actual sort worker for sorting when a non default sortBlock
-     or access selectors are used."
+     or nonNil access selectors are used."
 
     |begin   "{ Class: SmallInteger }"
      end     "{ Class: SmallInteger }"
@@ -216,8 +217,8 @@
     (begin < e) ifTrue:[self nonDefaultSort:begin to:e].
     (b < end) ifTrue:[self nonDefaultSort:b to:end]
 
-    "Modified: 6.2.1996 / 15:42:51 / cg"
     "Created: 6.2.1996 / 16:06:46 / cg"
+    "Modified: 6.2.1996 / 18:05:58 / cg"
 !
 
 sort
@@ -250,6 +251,6 @@
 !SequenceableCollectionSorter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.2 1996-02-06 19:01:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SequenceableCollectionSorter.st,v 1.3 1996-02-06 19:07:01 cg Exp $'
 ! !
 SequenceableCollectionSorter initialize!