--- a/LibraryDefinition.st	Wed Aug 30 15:22:57 2006 +0200
+++ b/LibraryDefinition.st	Wed Aug 30 15:31:57 2006 +0200
@@ -893,6 +893,21 @@
     "Created: / 18-08-2006 / 13:01:52 / cg"
 ! !
 
+!LibraryDefinition class methodsFor:'queries'!
+
+canHaveExtensions
+    "return true, if this class allows extensions from other packages.
+     Private classes, namespaces and projectDefinitions dont allow this"
+
+    ^ self == ApplicationDefinition
+
+    "
+     Smalltalk allClasses select:[:each | each canHaveExtensions not]
+    "
+
+    "Created: / 30-08-2006 / 15:29:53 / cg"
+! !
+
 !LibraryDefinition class methodsFor:'sanity checks'!
 
 searchForInconsistencies
@@ -961,5 +976,5 @@
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.55 2006-08-30 12:48:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.56 2006-08-30 13:31:57 cg Exp $'
 ! !