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

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

Name: Monticello-cmm.463
Author: cmm
Time: 3 May 2011, 6:34:35.174 pm
UUID: cb360fcd-9cf7-4613-9013-101198e88deb
Ancestors: Monticello-ul.462

- Added MCRepository>>wasRemoved hook method so that subclasses may override to, for example, disconnect a db session.

=============== Diff against Monticello-ul.462 ===============

Item was changed:
+ SystemOrganization addCategory: #Monticello!
  SystemOrganization addCategory: #'Monticello-Base'!
  SystemOrganization addCategory: #'Monticello-Chunk Format'!
  SystemOrganization addCategory: #'Monticello-Loading'!
  SystemOrganization addCategory: #'Monticello-Merging'!
+ SystemOrganization addCategory: #'Monticello-Mocks'!
  SystemOrganization addCategory: #'Monticello-Modeling'!
  SystemOrganization addCategory: #'Monticello-Patching'!
  SystemOrganization addCategory: #'Monticello-Repositories'!
  SystemOrganization addCategory: #'Monticello-Storing'!
  SystemOrganization addCategory: #'Monticello-UI'!
  SystemOrganization addCategory: #'Monticello-Utilities'!
  SystemOrganization addCategory: #'Monticello-Versioning'!
- SystemOrganization addCategory: #'Monticello-Mocks'!
- SystemOrganization addCategory: #Monticello!

Item was added:
+ ----- Method: MCRepository>>wasRemoved (in category 'ui') -----
+ wasRemoved
+ 	"Subclasses may override to, for example, disconnect a db session."!

Item was changed:
  ----- Method: MCRepositoryGroup>>removeRepository: (in category 'add / remove') -----
  removeRepository: aRepository
+ 	| removed |
+ 	removed := repositories remove: aRepository ifAbsent: [].
+ 	removed ifNotNil: [ removed wasRemoved ].
- 	repositories remove: aRepository ifAbsent: [].
  	self changed: #repositories!

Item was changed:
  ----- Method: MCVersionName>>versionName (in category 'accessing') -----
  versionName
  	"Answer my version name as a ByteString, without the file suffix or any ancestor-attributes."
- 	
  	| end |
+ 	self isEmpty ifTrue: [^ String empty].  
- 	self isEmpty ifTrue: [^''].  
  	(self last between: $0 and: $9)
  		ifTrue: [ end := self size ]
  		ifFalse: [
  			end := (self lastIndexOf: $. ifAbsent: [ self size + 1 ]) - 1.
  			end := end min: (self indexOf: $( ifAbsent: [ self size + 1 ]) - 1 ].
  	^self first: end!