--- a/Set.st	Mon Feb 16 19:41:02 2015 +0100
+++ b/Set.st	Thu Apr 16 18:28:45 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -9,6 +11,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: Smalltalk }"
@@ -200,7 +203,6 @@
     "Created: / 24.10.1997 / 23:13:44 / cg"
 ! !
 
-
 !Set methodsFor:'Compatibility-ST80'!
 
 initialIndexFor:hashKey boundedBy:length
@@ -644,7 +646,6 @@
     "Modified: 30.1.1997 / 14:58:08 / cg"
 ! !
 
-
 !Set methodsFor:'comparing'!
 
 = aCollection
@@ -660,7 +661,7 @@
 
     "
      #(1 2 3 4 5) asSet = #(2 3 4 5 1) asSet
-     #(nil 1 2 3 4 5) asSet = #(2 3 4 5 1) asSet´
+     #(nil 1 2 3 4 5) asSet = #(2 3 4 5 1) asSet
      #(1 2 3 4 5) asSet = #(2 3 4 5 1.0) asSet 
      #(1 2 3 4 5) asSet = #(2 3 4 5 'one') asSet 
     "
@@ -1098,6 +1099,18 @@
 
 !Set methodsFor:'private-grow & shrink'!
 
+emptyCheck
+    "backward compatibility"
+
+    self possiblyShrink
+!
+
+fullCheck
+    "backward compatibility"
+
+    self possiblyGrow
+!
+
 grow
     "change the number of element slots of the collection to a useful
      new size"
@@ -1241,7 +1254,6 @@
     ^ tally
 ! !
 
-
 !Set methodsFor:'searching'!
 
 findFirst:aBlock ifNone:exceptionValue
@@ -1334,11 +1346,11 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.131 2015-02-04 21:08:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.131.2.1 2015-04-16 16:28:45 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.131 2015-02-04 21:08:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.131.2.1 2015-04-16 16:28:45 stefan Exp $'
 ! !