--- a/LibraryDefinition.st	Wed Mar 27 13:18:03 2013 +0100
+++ b/LibraryDefinition.st	Wed Mar 27 13:18:12 2013 +0100
@@ -632,19 +632,6 @@
 
 !LibraryDefinition class methodsFor:'queries'!
 
-canHaveExtensions
-    "return true, if this class allows extensions from other packages.
-     Private classes, namespaces and projectDefinitions don't allow this"
-
-    ^ self == LibraryDefinition
-
-    "
-     Smalltalk allClasses select:[:each | each canHaveExtensions not]
-    "
-
-    "Created: / 30-08-2006 / 15:29:53 / cg"
-!
-
 projectType
     ^ LibraryType
 ! !
@@ -686,7 +673,7 @@
 !
 
 isLibraryDefinition
-    ^ self ~~ LibraryDefinition
+    ^ self isAbstract not
 
     "
      stx_libboss isLibraryDefinition
@@ -695,27 +682,15 @@
     "
 
     "Created: / 23-08-2006 / 15:17:50 / cg"
-!
-
-isProjectDefinition
-    ^ self ~~ LibraryDefinition "/ skip myself - I am abstract
-
-    "
-     stx_libboss isProjectDefinition
-     ProjectDefinition isProjectDefinition
-    "
-
-    "Created: / 17-08-2006 / 14:11:46 / cg"
-    "Modified: / 08-02-2011 / 10:03:42 / cg"
 ! !
 
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.117 2013-03-25 12:16:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.118 2013-03-27 12:18:12 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.117 2013-03-25 12:16:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.118 2013-03-27 12:18:12 stefan Exp $'
 ! !