--- a/NewLauncher.st	Wed Aug 09 13:56:43 2006 +0200
+++ b/NewLauncher.st	Wed Aug 09 13:57:20 2006 +0200
@@ -3247,7 +3247,7 @@
                                       with:packageName 
                                       with:(projectDir contractTo:30) 
                                       with:defNameSpace name
-                                      with:(ObjectMemory imageName)).
+                                      with:(ObjectMemory imageName asFilename baseName)).
     ^projectInfo
 ! !
 
@@ -4189,5 +4189,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.336 2006-08-09 11:56:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.337 2006-08-09 11:57:20 cg Exp $'
 ! !