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

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

Name: ReleaseBuilder-cmm.59
Author: cmm
Time: 1 February 2011, 6:13:53.894 pm
UUID: d5a00199-b603-421e-b482-0bc32d1b1f57
Ancestors: ReleaseBuilder-ul.58

Added script for transferring currently-loaded packages from trunk to squeak42 release repository.

=============== Diff against ReleaseBuilder-ul.58 ===============

Item was added:
+ ----- Method: ReleaseBuilderTrunk classSide>>releaseRepository (in category 'private') -----
+ releaseRepository
+ 	^ MCHttpRepository
+ 		location: self repositoryUrl , '/squeak42'
+ 		user: Utilities authorInitials
+ 		password: 'squeak'!

Item was added:
+ ----- Method: ReleaseBuilderTrunk classSide>>repositoryUrl (in category 'private') -----
+ repositoryUrl 
+ 	^ 'http://source.squeak.org'!

Item was changed:
  ----- Method: ReleaseBuilderTrunk classSide>>switchTo42Repository (in category 'private') -----
  switchTo42Repository
  	| old41Repository |
  	MCMcmUpdater defaultUpdateURL: 'http://source.squeak.org/squeak42'.
  	old41Repository := MCRepositoryGroup default repositories
  				detect: [:each | each description includesSubString: 'squeak41'].
  	old41Repository
  		ifNotNil: [MCRepositoryGroup default removeRepository: old41Repository].
+ 	MCRepositoryGroup default addRepository: self releaseRepository!
- 	MCRepositoryGroup default
- 		addRepository: (MCHttpRepository
- 				location: 'http://source.squeak.org/squeak42'
- 				user: 'squeak'
- 				password: 'squeak')!

Item was added:
+ ----- Method: ReleaseBuilderTrunk classSide>>transferCurrentPackages (in category 'scripts') -----
+ transferCurrentPackages
+ 	| trunkRep releaseRep |
+ 	trunkRep := self trunkRepository.
+ 	releaseRep := self releaseRepository.
+ 	MCWorkingCopy allManagers
+ 		do: [:eachWorkingCopy | eachWorkingCopy ancestors
+ 				do: [:eachVersionInfo | (releaseRep includesVersionNamed: eachVersionInfo name)
+ 						ifFalse: [releaseRep
+ 								storeVersion: (trunkRep versionFromFileNamed: eachVersionInfo name , '.mcz')]]]!

Item was added:
+ ----- Method: ReleaseBuilderTrunk classSide>>trunkRepository (in category 'private') -----
+ trunkRepository
+ 	^ MCHttpRepository
+ 		location: self repositoryUrl , '/trunk'
+ 		user: Utilities authorInitials
+ 		password: ''!