--- a/SortedCollection.st	Mon Sep 28 15:25:19 2009 +0200
+++ b/SortedCollection.st	Mon Sep 28 17:45:59 2009 +0200
@@ -533,16 +533,6 @@
 
     (aCollection isSortedCollection
      and:[aCollection sortBlock == sortBlock]) ifTrue:[
-"/ not helping, really
-"/        mySize == 0 ifTrue:[
-"/            "/ special case: I am empty - add them en-bloque.
-"/            contentsArray size >= numAdded ifTrue:[
-"/                contentsArray replaceFrom:1 with:aCollection.
-"/                firstIndex := 1.
-"/                lastIndex := numAdded.
-"/                ^ self.
-"/            ].
-"/        ].
         addedCollection := aCollection.
     ] ifFalse:[
         addedCollection := Array withAll:aCollection.
@@ -593,7 +583,7 @@
 
 mergeSorted:aSortedCollection
     "add all elements of the argument, aSortedCollection to the receiver.
-     This leads to an error, if the argument is not a sortedCollection.
+     This leads to an error, if the argument is not sorted.
 
      This should be used when a number of elements is to be added.
      Notice, that quicksort degenerates to a veeery slow bubble-like
@@ -1070,7 +1060,7 @@
 !SortedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.68 2009-09-28 08:39:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.69 2009-09-28 15:45:59 cg Exp $'
 ! !
 
 SortedCollection initialize!