--- a/LibraryDefinition.st	Fri Aug 18 16:23:41 2006 +0200
+++ b/LibraryDefinition.st	Fri Aug 18 16:23:48 2006 +0200
@@ -50,9 +50,10 @@
         ^ 'Smalltalk/X Class library'
     ].
 
-    self subclassResponsibility
+    ^ 'Class Library'
 
     "Created: / 17-08-2006 / 20:52:16 / cg"
+    "Modified: / 18-08-2006 / 16:15:53 / cg"
 ! !
 
 !LibraryDefinition class methodsFor:'file generation'!
@@ -901,34 +902,32 @@
 !
 
 forEachMethodsCodeToCompileDo:aTwoArgBlock
+    super forEachMethodsCodeToCompileDo:aTwoArgBlock.
+
     aTwoArgBlock 
         value:self autoloadedClassNames_code
         value:'description'.
 
-   aTwoArgBlock
+    aTwoArgBlock
         value: self classNames_code
         value: 'description'.
 
-   (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
-       aTwoArgBlock
+    (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
+        aTwoArgBlock
             value: 'excluded_classNames\^ #()' withCRs
             value: 'description'.
-   ].
+    ].
 
-   aTwoArgBlock 
+    aTwoArgBlock 
         value: self extensionMethodNames_code
         value: 'description'.
 
-   aTwoArgBlock 
-        value: self description_code
-        value: 'description - project information'.
-
     "Created: / 10-08-2006 / 16:35:47 / cg"
-    "Modified: / 17-08-2006 / 21:22:26 / cg"
+    "Modified: / 18-08-2006 / 16:22:49 / cg"
 ! !
 
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.24 2006-08-18 13:42:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.25 2006-08-18 14:23:48 cg Exp $'
 ! !