--- a/Collection.st	Thu Oct 29 13:33:14 2015 +0100
+++ b/Collection.st	Thu Oct 29 16:12:42 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -275,7 +277,6 @@
     ^ self newWithSize:n
 ! !
 
-
 !Collection class methodsFor:'Signal constants'!
 
 emptyCollectionSignal
@@ -337,15 +338,16 @@
     ^ self == Collection
 ! !
 
-
-!Collection methodsFor:'Compatibility-Dolphin'!
+!Collection methodsFor:'Compatibility-ANSI'!
 
 identityIncludes:anObject
     "return true, if the argument, anObject is in the collection.
-     Same as #includesIdentical for Dolphin compatibility."
+     Same as #includesIdentical for Dolphin/ANSI compatibility."
 
     ^ self includesIdentical:anObject.
-!
+! !
+
+!Collection methodsFor:'Compatibility-Dolphin'!
 
 includesAnyOf:aCollection
     "same as #includesAny for Dolphin compatibility."
@@ -527,7 +529,6 @@
     "Created: / 22-10-2008 / 21:29:27 / cg"
 ! !
 
-
 !Collection methodsFor:'accessing'!
 
 anElement
@@ -4125,7 +4126,7 @@
     aStream nextPut:$)
 
     "
-     #(1 2 3 'hello' $a $ü) printOn:Transcript
+     #(1 2 3 'hello' $a $ü) printOn:Transcript
      (Array new:100000) printOn:Transcript
      (Array new:100000) printOn:Stdout          
      (Array new:100000) printString size 
@@ -5767,7 +5768,6 @@
     ^ aVisitor visitCollection:self with:aParameter
 ! !
 
-
 !Collection class methodsFor:'documentation'!
 
 version