--- a/ProjectDefinition.st	Wed Aug 23 22:05:58 2006 +0200
+++ b/ProjectDefinition.st	Wed Aug 23 22:06:08 2006 +0200
@@ -13,10 +13,10 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ProjectDefinition
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        category:'System-Support-Projects'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Support-Projects'
 !
 
 ProjectDefinition class instanceVariableNames:'overwrittenMethods'
@@ -952,7 +952,12 @@
 
                     cls := Smalltalk classNamed:eachClassName.
                     cls isNil ifTrue:[
-                        s nextPutAll:(Smalltalk fileNameForClass:eachClassName).
+                        fn := (Smalltalk fileNameForClass:eachClassName) asFilename withoutSuffix.
+                        fn suffix notEmptyOrNil ifTrue:[
+                            fn := fn withoutSuffix
+                        ].
+                        fn := fn baseName.
+                        s nextPutAll:fn.
                         s nextPutAll:' '; nextPutAll:'unknownPackage'; nextPutAll:' '.
                         s nextPutAll:' '; nextPutAll:'unknownCategory' storeString; nextPutAll:' '.
                         s nextPutAll:' '; nextPutAll:'0'.
@@ -960,7 +965,11 @@
                         wasLoaded := cls isLoaded.
                         cls autoload.
 
-                        fn := cls classFilename asFilename withoutSuffix baseName.
+                        fn := cls classFilename asFilename withoutSuffix.
+                        fn suffix notEmptyOrNil ifTrue:[
+                            fn := fn withoutSuffix
+                        ].
+                        fn := fn baseName.
                         (fn includes:Character space) ifTrue:[
                             s nextPutAll:fn storeString.
                         ] ifFalse:[
@@ -1819,5 +1828,5 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.35 2006-08-23 14:50:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.36 2006-08-23 20:06:08 cg Exp $'
 ! !