Patrick Rein uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-pre.700.mcz

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

Name: Monticello-pre.700
Author: pre
Time: 3 September 2019, 5:12:25.650361 pm
UUID: ff75f1eb-e3c7-2646-b2a0-d7a268675f70
Ancestors: Monticello-cmm.699

Refactors Monticello tools to directly use the ChangeSet class for accessing change sets.

=============== Diff against Monticello-cmm.699 ===============

Item was changed:
  ----- Method: MCCodeTool>>findMethodInChangeSets (in category 'menus') -----
  findMethodInChangeSets
  	"Find and open a changeSet containing the current method."
  
  	| aName |
  	(aName := self selectedMessageName) ifNotNil: [
+ 		ChangeSorter 
+ 			browseChangeSetsWithClass: self selectedClassOrMetaClass
+ 			selector: aName]!
- 		ChangeSorter browseChangeSetsWithClass: self selectedClassOrMetaClass
- 					selector: aName]!

Item was changed:
  ----- Method: MCPackageLoader>>useChangeSetNamed:during: (in category 'private') -----
  useChangeSetNamed: baseName during: aBlock
  	"Use the named change set, or create one with the given name."
  	| changeHolder oldChanges newChanges |
  	changeHolder := (ChangeSet respondsTo: #newChanges:)
  						ifTrue: [ChangeSet]
  						ifFalse: [Smalltalk].
  	oldChanges := (ChangeSet respondsTo: #current)
  						ifTrue: [ChangeSet current]
  						ifFalse: [Smalltalk changes].
  
+ 	newChanges := (ChangeSet named: baseName) ifNil: [ ChangeSet new name: baseName ].
- 	newChanges := (ChangesOrganizer changeSetNamed: baseName) ifNil: [ ChangeSet new name: baseName ].
  	changeHolder newChanges: newChanges.
  	aBlock ensure: [changeHolder newChanges: oldChanges].
  !