--- a/NameSpace.st	Mon Oct 29 17:05:17 2012 +0000
+++ b/NameSpace.st	Mon Oct 29 22:07:56 2012 +0000
@@ -293,7 +293,7 @@
 allClasses
     |classes|
 
-    classes := IdentitySet new.
+    classes := OrderedCollection new.
     self allClassesDo:[:aClass | classes add:aClass].
     ^ classes
 
@@ -303,7 +303,7 @@
 allClassesWithAllPrivateClasses
     |classes|
 
-    classes := IdentitySet new.
+    classes := OrderedCollection new.
     self allClassesDo:[:aClass | 
         classes add:aClass.
         aClass addAllPrivateClassesTo:classes.
@@ -734,9 +734,9 @@
 !NameSpace class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.74 2012/08/03 15:52:51 stefan Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.75 2012/10/22 20:26:16 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: NameSpace.st 10844 2012-09-07 16:24:32Z vranyj1 $'
+    ^ '$Id: NameSpace.st 10858 2012-10-29 22:07:56Z vranyj1 $'
 ! !