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

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

Name: Monticello-cmm.654
Author: cmm
Time: 22 November 2016, 5:24:12.638405 pm
UUID: 7351af57-f33b-4254-9a8a-29284f44a174
Ancestors: Monticello-cmm.653

- Substitute the faster #addNewElement: for #includes: + #add:.
- Recover MCAncestry>>#clearAncestors.
- #copyWithTrimmedAncestry leaves the most recent to support MC diffing function.

=============== Diff against Monticello-cmm.653 ===============

Item was changed:
  ----- Method: MCAncestry>>allAncestorsDo:visitedAncestors: (in category 'ancestry') -----
  allAncestorsDo: aBlock visitedAncestors: visitedAncestors
- 
  	self ancestors do: [ :each |
+ 		(visitedAncestors addNewElement: each) ifTrue: [
- 		(visitedAncestors includes: each) ifFalse: [
- 			visitedAncestors add: each.
  			aBlock value: each.
  			each allAncestorsDo: aBlock visitedAncestors: visitedAncestors ] ]!

Item was added:
+ ----- Method: MCAncestry>>clearAncestors (in category 'copying') -----
+ clearAncestors
+ 	ancestors := Array empty!

Item was added:
+ ----- Method: MCAncestry>>clearStepChildren (in category 'copying') -----
+ clearStepChildren
+ 	stepChildren := Array empty!

Item was added:
+ ----- Method: MCAncestry>>postCopyWithTrimmedAncestry (in category 'copying') -----
+ postCopyWithTrimmedAncestry
+ 	ancestors ifNotNil:
+ 		[ ancestors := ancestors collect:
+ 			[ : each | each copy
+ 				 clearAncestors ;
+ 				 clearStepChildren ;
+ 				 yourself ] ].
+ 	stepChildren ifNotNil:
+ 		[ stepChildren := stepChildren collect:
+ 			[ : each | each copy
+ 				 clearAncestors ;
+ 				 clearStepChildren ;
+ 				 yourself ] ]!

Item was removed:
- ----- Method: MCVersionInfo>>postCopyWithTrimmedAncestry (in category 'copying') -----
- postCopyWithTrimmedAncestry
- 	ancestors := Array empty!