--- a/ApplicationDefinition.st	Tue Oct 20 10:40:57 2009 +0200
+++ b/ApplicationDefinition.st	Tue Oct 20 10:41:48 2009 +0200
@@ -146,12 +146,12 @@
         value:self preRequisites_code
         value:'description'.
 
-    (self class implements:#startupClassName) ifFalse:[
+    (self class includesSelector:#startupClassName) ifFalse:[
         aTwoArgBlock 
             value:self startupClassName_code
             value:'description - startup'.
     ].
-    (self class implements:#startupSelector) ifFalse:[
+    (self class includesSelector:#startupSelector) ifFalse:[
         aTwoArgBlock 
             value:self startupSelector_code
             value:'description - startup'.
@@ -162,18 +162,18 @@
 !
 
 startupClassName_code
-    |classes startClasses mainClasses appClasses cls|
+    |classes startClasses mainClasses appClasses|
 
     classes := self classNamesAndAttributes 
                 collect:[:nm | Smalltalk classNamed:nm] 
                 thenSelect:[:cls | cls notNil and:[cls isProjectDefinition not ]].
 
-    mainClasses := classes select:[:each | each theMetaclass implements:#main ].
+    mainClasses := classes select:[:each | each theMetaclass includesSelector:#main ].
     mainClasses size == 1 ifTrue:[
         ^ self startupClassName_codeFor:(mainClasses first name)
     ].
     mainClasses isEmpty ifTrue:[
-        startClasses := classes select:[:each | each theMetaclass implements:#start ].
+        startClasses := classes select:[:each | each theMetaclass includesSelector:#start ].
         startClasses size == 1 ifTrue:[
             ^ self startupClassName_codeFor:(startClasses first name)
         ].
@@ -2547,7 +2547,7 @@
         startupClassName
 "/        startupSelector
     ) do:[:sel |
-        (self theMetaclass implements:sel) ifFalse:[
+        (self theMetaclass includesSelector:sel) ifFalse:[
             Dialog 
                 warn:('The %1-method is missing from the description %2!!' 
                         bindWith:sel allBold
@@ -2583,9 +2583,9 @@
 !ApplicationDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.145 2009-10-10 15:56:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.146 2009-10-20 08:41:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.145 2009-10-10 15:56:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.146 2009-10-20 08:41:48 cg Exp $'
 ! !