--- a/ClassDescription.st	Thu Oct 25 19:38:20 2001 +0200
+++ b/ClassDescription.st	Fri Oct 26 10:02:27 2001 +0200
@@ -562,18 +562,19 @@
     "evaluate aBlock for all classes in aCategory;
      superclasses come first - then subclasses."
 
-    |classes|
-
-    classes := OrderedCollection new.
-    Smalltalk allClassesDo:[:aClass |
-        aClass isMeta ifFalse:[
-            (aClass category = aCategory) ifTrue:[
-                classes add:aClass
-            ]
-        ]
-    ].
-    classes topologicalSort:[:a :b | b isSubclassOf:a].
-    classes do:aBlock
+    Smalltalk allClassesInCategory:aCategory inOrderDo:aBlock
+"/    |classes|
+"/
+"/    classes := OrderedCollection new.
+"/    Smalltalk allClassesDo:[:aClass |
+"/        aClass isMeta ifFalse:[
+"/            (aClass category = aCategory) ifTrue:[
+"/                classes add:aClass
+"/            ]
+"/        ]
+"/    ].
+"/    classes topologicalSort:[:a :b | b isSubclassOf:a].
+"/    classes do:aBlock
 
     "Created: 1.4.1997 / 23:45:15 / stefan"
 ! !
@@ -647,6 +648,13 @@
     ^ ClassOrganizer for:self
 !
 
+preSave: aParcel
+        "Allow additional process of a Parcel before writing. This method works
+        with the matching method postLoad:, to handle additional processing
+        after loading a Parcel. The typical operation to do here is to save
+        named objects to aParcel (and retrieve them in postLoad:)."
+!
+
 removeInstVarName:anInstVar
     |sel newClass args newNames|
 
@@ -3934,6 +3942,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.125 2001-10-18 16:42:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.126 2001-10-26 08:02:27 cg Exp $'
 ! !
 ClassDescription initialize!