--- a/OrderedDictionary.st	Mon Aug 01 14:37:49 2005 +0200
+++ b/OrderedDictionary.st	Tue Aug 02 15:14:33 2005 +0200
@@ -135,11 +135,11 @@
 !OrderedDictionary class methodsFor:'instance creation'!
 
 new
-	^super new initialize
+        ^ super new initializeOrder
 !
 
 new: anInteger
-	^(super new: anInteger) initialize
+        ^(super new: anInteger) initializeOrder
 ! !
 
 !OrderedDictionary methodsFor:'accessing'!
@@ -624,11 +624,13 @@
     ^ newDict
 ! !
 
-!OrderedDictionary methodsFor:'private'!
+!OrderedDictionary methodsFor:'initialization'!
 
-initialize
-	order := OrderedCollection new
-!
+initializeOrder
+        order := OrderedCollection new
+! !
+
+!OrderedDictionary methodsFor:'private'!
 
 removeFromOrder: aKey 
 	order remove: aKey ifAbsent: []
@@ -869,6 +871,6 @@
 !OrderedDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/OrderedDictionary.st,v 1.19 2004-04-07 10:30:21 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/OrderedDictionary.st,v 1.20 2005-08-02 13:14:26 cg Exp $'
 
 ! !

--- a/OrderedSet.st	Mon Aug 01 14:37:49 2005 +0200
+++ b/OrderedSet.st	Tue Aug 02 15:14:33 2005 +0200
@@ -93,13 +93,13 @@
 !OrderedSet class methodsFor:'instance creation'!
 
 new
-	^super new initialize
+        ^super new initializeOrder
 
     "Created: / 16.11.2001 / 10:10:37 / cg"
 !
 
 new: anInteger
-	^(super new: anInteger) initialize
+        ^(super new: anInteger) initializeOrder
 
     "Created: / 16.11.2001 / 10:10:07 / cg"
 ! !
@@ -284,7 +284,7 @@
 
 !OrderedSet methodsFor:'initialization'!
 
-initialize
+initializeOrder
     order := OrderedCollection new
 
     "Created: / 16.11.2001 / 10:06:05 / cg"
@@ -293,5 +293,5 @@
 !OrderedSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/OrderedSet.st,v 1.9 2004-04-01 05:00:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/OrderedSet.st,v 1.10 2005-08-02 13:14:33 cg Exp $'
 ! !