--- a/OrderedSet.st	Wed Feb 04 20:58:53 2015 +0100
+++ b/OrderedSet.st	Wed Feb 04 20:59:46 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Set subclass:#OrderedSet
 	instanceVariableNames:'order'
 	classVariableNames:''
@@ -224,6 +226,13 @@
     "
 !
 
+clearContents
+    "remove all elements from the receiver, but do not shrink. Returns the receiver."
+
+    super clearContents.
+    order clearContents.
+!
+
 remove:oldObject ifAbsent:exceptionValueProvider
     "remove oldObject from the collection and return it.
      If it was not in the collection return the value of exceptionValueProvider.
@@ -427,10 +436,10 @@
 !OrderedSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.27 2014-08-01 12:52:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.28 2015-02-04 19:59:46 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.27 2014-08-01 12:52:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.28 2015-02-04 19:59:46 stefan Exp $'
 ! !