--- a/Class.st	Fri Dec 01 11:15:01 2000 +0100
+++ b/Class.st	Fri Dec 01 11:16:36 2000 +0100
@@ -260,6 +260,7 @@
     "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 
+
 !Class methodsFor:'Compatibility - ST80'!
 
 fileOutSourceOn:aStream
@@ -903,12 +904,16 @@
 
     classes := self privateClasses.
     (classes size > 0) ifTrue:[
-        classes := classes asOrderedCollection topologicalSort:[:a :b | b isSubclassOf:a].
+        classes := classes asOrderedCollection.
+        classes sort:[:a :b | a name < b name].
+        classes topologicalSort:[:a :b | b isSubclassOf:a].
     ].
     ^ classes.
 
     "
      Object privateClassesSorted
+     NewSystemBrowser privateClassesSorted
+     NewSystemBrowser privateClasses
     "
 
     "Created: 22.3.1997 / 16:10:42 / cg"
@@ -2469,7 +2474,7 @@
 
     withDefinition ifTrue:[
         "/
-        "/ then the definition
+        "/ then the definition(s)
         "/
         self fileOutAllDefinitionsOn:aStream.
         "/
@@ -4552,5 +4557,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.389 2000-11-22 13:15:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.390 2000-12-01 10:16:36 cg Exp $'
 ! !