--- a/ApplicationModel.st	Sun Aug 23 17:21:24 2015 +0200
+++ b/ApplicationModel.st	Fri Aug 28 08:35:41 2015 +0200
@@ -180,6 +180,21 @@
 application
     ^ self
 
+!
+
+applicationName
+    "the name as shown in an about box or in the deployed package.
+     If there is an application definition in my package, ask that one.
+     Otherwise, return my name."
+
+    |prjDef|
+
+    (prjDef := self projectDefinitionClass) notNil ifTrue:[
+        prjDef isApplicationDefinition ifTrue:[
+            ^ prjDef applicationName
+       ]. 
+    ].
+    ^ self name
 ! !
 
 !ApplicationModel class methodsFor:'active help'!
@@ -655,7 +670,7 @@
     rev := ''.
 
     (clsRev := self revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
-    msg := "'\' withCRs ," self name asBoldText, rev.
+    msg := "'\' withCRs ," self applicationName asBoldText, rev.
     ^ msg
 
     "Created: / 13-11-2001 / 12:28:36 / cg"