Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-cmm.104.mcz

==================== Summary ====================

Name: ReleaseBuilder-cmm.104
Author: cmm
Time: 8 November 2013, 10:23:31.885 am
UUID: b4025c04-9481-4f18-b601-c087a70ddc6b
Ancestors: ReleaseBuilder-fbs.103

- Refer to new #trunk accessor rather than hard-coding it in multiple places.

=============== Diff against ReleaseBuilder-fbs.103 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>cleanPackages (in category 'scripts') -----
  cleanPackages
  	"Force-load the packages to ensure the image has what Trunk says it should."
- 	| trunk |
- 	trunk := MCRepositoryGroup default repositories detect:
-  		[:repo | repo description = 'http://source.squeak.org/trunk'].
  	MCWorkingCopy allManagers do: [:wc |
  		FileStream stdout nextPutAll: ('Cleaning {1}\' withCRs format: {wc packageName}).
  		wc ancestors size = 1 ifFalse: [
  			self error: 'Package must have single parent: ', wc packageName].
  		wc modified: true. "make sure actual diff is performed"
+ 		[(MCRepository trunk versionWithInfo: wc ancestors first) load]
- 		[(trunk versionWithInfo: wc ancestors first) load]
  			on: Warning do: [:w | w resume]].!

Item was changed:
  ----- Method: ReleaseBuilder class>>releaseRepository (in category 'private') -----
  releaseRepository
  	"At release time, change 'trunk' to 'squeak45'."
+ 	^ MCRepository trunk!
- 	^ MCHttpRepository
- 		location: 'http://source.squeak.org/trunk'
- 		user: 'squeak'
- 		password: 'squeak'!

Item was changed:
  ----- Method: ReleaseBuilder class>>transferCurrentPackagesAsUser:password: (in category 'scripts') -----
  transferCurrentPackagesAsUser: username password: password
  	"Copy the packages currently loaded in the image from the trunk repository to my releaseRepository."
+ 	| releaseRep |
- 	| trunkRep releaseRep |
- 	trunkRep := self trunkRepository.
  	releaseRep := self releaseRepository
  		user: username;
  		password: password;
  		yourself.
  	MCWorkingCopy allManagers do:
  		[ : eachWorkingCopy | eachWorkingCopy ancestors do:
  			[ : eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo versionName) ifFalse:
+ 				[ (MCRepository trunk versionWithInfo: eachVersionInfo)
+ 					ifNil: [ Warning signal: eachVersionInfo name , ' not found in trunk.' ]
- 				[ (trunkRep versionWithInfo: eachVersionInfo)
- 					ifNil: [ Warning signal: eachVersionInfo name , ' not found in ', trunkRep ]
  					ifNotNilDo: [ : ver | releaseRep storeVersion: ver ] ] ] ]!

Item was removed:
- ----- Method: ReleaseBuilder class>>trunkRepository (in category 'private') -----
- trunkRepository
- 	^ MCHttpRepository
- 		location: self repositoryUrl , '/trunk'
- 		user: 'squeak'
- 		password: 'squeak'!