--- a/SortedSet.st	Tue Jan 03 14:45:08 2017 +0100
+++ b/SortedSet.st	Tue Jan 03 19:08:46 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 OrderedSet subclass:#SortedSet
 	instanceVariableNames:''
 	classVariableNames:''
@@ -195,8 +197,8 @@
 
 !SortedSet methodsFor:'initialization'!
 
-initializeOrder
-    order := SortedCollection new
+initializeOrder:anInteger
+    order := SortedCollection new:anInteger
 
     "Created: / 06-08-2012 / 12:33:31 / cg"
 !
@@ -210,10 +212,10 @@
 !SortedSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SortedSet.st,v 1.3 2014-11-12 11:31:58 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SortedSet.st,v 1.3 2014-11-12 11:31:58 stefan Exp $'
+    ^ '$Header$'
 ! !