--- a/ClassDescription.st	Mon Jul 17 12:19:56 2017 +0200
+++ b/ClassDescription.st	Mon Jul 17 12:20:12 2017 +0200
@@ -659,7 +659,6 @@
     "Modified: 23.4.1996 / 15:56:54 / cg"
 ! !
 
-
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
 methodsFor
@@ -962,6 +961,10 @@
     "
 
     "Created: / 12-09-2011 / 08:44:19 / cg"
+!
+
+shortName
+    ^ self nameWithoutPrefix
 ! !
 
 !ClassDescription methodsFor:'accessing'!
@@ -2511,6 +2514,26 @@
     aStream nextPutLine:'</methods>'.
 ! !
 
+!ClassDescription methodsFor:'initialization'!
+
+initializeWithAllPrivateClasses
+    "if implemented, send #initialize to myself and any private
+     class which does so.
+     This is sent to a class after it
+     has been loaded into the system.
+     Statically compiled classes are initialized by the VM"
+
+    (self class includesSelector:#initialize) ifTrue:[
+	self initialize.
+    ].
+    self privateClassesSorted do:[:aPrivateClass |
+	aPrivateClass initializeWithAllPrivateClasses.
+    ].
+
+    "Created: / 13.5.1998 / 23:33:16 / cg"
+    "Modified: / 13.5.1998 / 23:34:06 / cg"
+! !
+
 
 !ClassDescription methodsFor:'printOut'!
 
@@ -3086,6 +3109,15 @@
     "Created: 1.4.1997 / 23:52:27 / stefan"
 !
 
+addAllPrivateClassesTo:aCollection
+    "add all of my private classes to aCollection"
+
+    self privateClassesDo:[:aPrivateClass |
+	aCollection add:aPrivateClass.
+	aPrivateClass addAllPrivateClassesTo:aCollection
+    ].
+!
+
 addCategoriesTo:aCollection
     "helper - add categories to the argument, aCollection.
      aCollection should be a set."