--- a/Set.st	Thu Apr 06 12:14:12 2006 +0200
+++ b/Set.st	Thu Apr 06 12:14:34 2006 +0200
@@ -896,14 +896,6 @@
 
 !Set methodsFor:'private-grow & shrink'!
 
-changeCapacityTo:newSize
-    newSize > self capacity ifTrue:[
-	self grow:newSize
-    ].
-
-    "Created: / 30.10.2001 / 17:56:50 / cg"
-!
-
 emptyCheck
     "check if the receiver has become too empty (after a remove)
      and shrink if it makes sense.
@@ -1049,6 +1041,8 @@
     ^ tally
 ! !
 
+
+
 !Set methodsFor:'testing'!
 
 capacity 
@@ -1160,7 +1154,7 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.93 2006-01-31 22:26:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.94 2006-04-06 10:14:34 stefan Exp $'
 ! !
 
 Set initialize!