--- a/NameSpace.st	Mon Oct 22 19:24:42 2012 +0200
+++ b/NameSpace.st	Mon Oct 22 22:26:16 2012 +0200
@@ -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,7 +734,7 @@
 !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