--- a/Set.st	Wed Feb 04 20:58:36 2015 +0100
+++ b/Set.st	Wed Feb 04 20:58:53 2015 +0100
@@ -200,6 +200,7 @@
     "Created: / 24.10.1997 / 23:13:44 / cg"
 ! !
 
+
 !Set methodsFor:'Compatibility-ST80'!
 
 initialIndexFor:hashKey boundedBy:length
@@ -371,6 +372,13 @@
     "Modified: 30.1.1997 / 14:58:08 / cg"
 !
 
+clearContents
+    "remove all elements from the receiver, but do not resize.
+     Returns the receiver."
+
+    keyArray atAllPut:nil.
+!
+
 remove:oldObjectArg ifAbsent:exceptionBlock
     "remove oldObject from the collection and return it.
      If it was not in the collection return the value of exceptionBlock.
@@ -1232,6 +1240,7 @@
     ^ tally
 ! !
 
+
 !Set methodsFor:'searching'!
 
 findFirst:aBlock ifNone:exceptionValue
@@ -1324,11 +1333,11 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.129 2014-12-30 12:35:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.130 2015-02-04 19:58:53 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.129 2014-12-30 12:35:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.130 2015-02-04 19:58:53 stefan Exp $'
 ! !