'From etoys3.0 of 7 March 2008 [latest update: #2084] on 25 August 2008 at 10:37:55 pm'! "Change Set: projectName2-bf Date: 25 August 2008 Author: Bert Freudenberg Do not set project name if it is already set, because it otherwise adds an unwanted suffix "! !Project methodsFor: 'accessing' stamp: 'bf 8/25/2008 22:36'! name: aString changeSet ifNil: [changeSet := ChangeSet new]. (aString isEmpty or: [aString = changeSet name]) ifFalse: [changeSet name: (ChangeSet uniqueNameLike: aString)]! !