--- a/SortedCollection.st	Mon Feb 13 20:44:58 2017 +0100
+++ b/SortedCollection.st	Mon Feb 13 20:45:14 2017 +0100
@@ -605,17 +605,19 @@
 
 asSortedCollection:aSortBlock
     "return the receiver as a sorted collection, using aSortBlock.
-     Return the receiver, if its a sortedCollection and the sortBlock
+     Return the receiver, if it's a sortedCollection and the sortBlock
      is the same as the argument-sortBlock"
 
     "could be an instance of a subclass..."
     self class == SortedCollection ifTrue:[
-	"/ if the sortBlock is the same, return the receiver
-	aSortBlock == sortBlock ifTrue:[
-	    ^ self
-	].
+        "/ if the sortBlock is the same, return the receiver
+        aSortBlock == sortBlock ifTrue:[
+            ^ self
+        ].
     ].
     ^ super asSortedCollection:aSortBlock
+
+    "Modified (comment): / 13-02-2017 / 20:31:12 / cg"
 ! !
 
 !SortedCollection methodsFor:'copying'!