--- a/Class.st	Tue Jun 24 19:26:24 1997 +0200
+++ b/Class.st	Wed Jun 25 14:48:58 1997 +0200
@@ -838,14 +838,15 @@
             ]
         ]
     ].
-    ^ classes
+    ^ classes asSortedCollection:[:a :b | a name < b name].
 
     "
      Object privateClasses
-     ObjectMemory privateClasses
+     ObjectMemory privateClasses 
+     UILayoutTool privateClasses 
     "
 
-    "Modified: 22.3.1997 / 19:20:53 / cg"
+    "Modified: 25.6.1997 / 14:45:50 / cg"
 !
 
 privateClassesAt:aClassNameSymbol
@@ -3791,5 +3792,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.284 1997-06-23 11:35:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.285 1997-06-25 12:48:58 cg Exp $'
 ! !