--- a/HierarchyNode.st	Mon Jun 30 22:12:24 1997 +0200
+++ b/HierarchyNode.st	Tue Jul 01 12:00:41 1997 +0200
@@ -81,13 +81,15 @@
     newInst name:aClass name.
     newInst contents:aClass.
     newInst level:level.
-    aClass subclasses do:[:aSubClass |
+    newInst childCollectionClass:OrderedCollection.
+    (aClass subclasses asSortedCollection:[:a :b | a name < b name])
+    do:[:aSubClass |
         newInst addChild:(self newAsTreeFromSmalltalkClass:aSubClass level:level+1).
     ].
     ^newInst
 
     "Created: 15.4.1997 / 16:33:52 / cg"
-    "Modified: 15.4.1997 / 16:34:52 / cg"
+    "Modified: 1.7.1997 / 11:57:15 / cg"
 !
 
 newWithName:aString
@@ -526,5 +528,5 @@
 !HierarchyNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.6 1997-06-30 11:00:13 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchyNode.st,v 1.7 1997-07-01 10:00:41 cg Exp $'
 ! !