--- a/ProjectDefinition.st	Thu Apr 04 14:19:49 2013 +0200
+++ b/ProjectDefinition.st	Thu Apr 04 16:15:53 2013 +0200
@@ -152,7 +152,15 @@
     class := Smalltalk classNamed:packageDefinitionClassName.
     class isNil ifTrue:[
         doCreateIfAbsent ifTrue:[
-            class := self newForPackage:aPackageID.
+            typeOrNil = GUIApplicationType ifTrue:[
+                class := ApplicationDefinition newForPackage:aPackageID.
+            ] ifFalse:[
+                typeOrNil = NonGUIApplicationType ifTrue:[
+                    class := ApplicationDefinition newForPackage:aPackageID.
+                ] ifFalse:[
+                    class := LibraryDefinition newForPackage:aPackageID.
+                ]
+            ].
             "setup before prerequisites are defined"
             class setupForType:typeOrNil.
             "/ look what is there and include it; is this ok ?
@@ -5619,7 +5627,7 @@
     ^ true
 '
              categorized:'description'.
-        self superclass: ApplicationDefinition.
+        self setSuperclass: ApplicationDefinition.
         ^ self
     ].
 
@@ -5632,12 +5640,12 @@
     ^ false
 '
              categorized:'description'.
-        self superclass: ApplicationDefinition.
+        self setSuperclass: ApplicationDefinition.
         ^ self
     ].
 
     self theMetaclass removeSelector: #isGUIApplication.
-    self superclass: LibraryDefinition.
+    self setSuperclass: LibraryDefinition.
     ^ self.
 
     "Created: / 23-08-2006 / 14:26:10 / cg"
@@ -7387,11 +7395,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.454 2013-04-04 12:19:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.455 2013-04-04 14:15:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.454 2013-04-04 12:19:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.455 2013-04-04 14:15:53 cg Exp $'
 !
 
 version_SVN