--- a/LibraryDefinition.st	Thu Oct 22 19:34:57 2009 +0200
+++ b/LibraryDefinition.st	Thu Oct 22 19:35:02 2009 +0200
@@ -570,15 +570,19 @@
 
 canHaveExtensions
     "return true, if this class allows extensions from other packages.
-     Private classes, namespaces and projectDefinitions dont allow this"
+     Private classes, namespaces and projectDefinitions don't allow this"
 
-    ^ self == ApplicationDefinition
+    ^ self == LibraryDefinition
 
     "
      Smalltalk allClasses select:[:each | each canHaveExtensions not]
     "
 
     "Created: / 30-08-2006 / 15:29:53 / cg"
+!
+
+projectType
+    ^ LibraryType
 ! !
 
 !LibraryDefinition class methodsFor:'sanity checks'!
@@ -644,9 +648,9 @@
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.94 2009-10-20 14:42:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.95 2009-10-22 17:35:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.94 2009-10-20 14:42:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.95 2009-10-22 17:35:02 cg Exp $'
 ! !