--- a/ProjectDefinition.st	Mon May 06 15:35:25 2013 +0200
+++ b/ProjectDefinition.st	Mon May 06 17:07:27 2013 +0200
@@ -2820,9 +2820,10 @@
 
 productName
     "Returns a product name which will appear in <lib>.rc.
-     Under win32, this is placed into the dlls file-info"
-
-    |m|
+     Under win32, this is placed into the dlls file-info.
+     This method is usually redefined in a concrete application definition"
+
+    |m nm|
 
     m := self module.
     m = 'stx' ifTrue:[
@@ -2832,9 +2833,17 @@
         ^ 'eXept addOns'
     ].
     Error handle:[:ex |
+self halt.
         ^ 'ProductName'
     ] do:[
-        ^ self startupClassName
+        nm := self startupClassName.
+        (nm endsWith:'Startup') ifTrue:[
+            ^ nm copyButLast:'Startup' size.
+        ].
+        (nm endsWith:'Start') ifTrue:[
+            ^ nm copyButLast:'Start' size.
+        ].
+        ^ nm
     ].
 
     "Modified: / 08-11-2007 / 16:45:14 / cg"
@@ -7413,11 +7422,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.465 2013-05-03 10:50:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.466 2013-05-06 15:07:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.465 2013-05-03 10:50:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.466 2013-05-06 15:07:27 cg Exp $'
 !
 
 version_SVN