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

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

Name: System-cmm.1067
Author: cmm
Time: 19 June 2019, 3:38:18.528122 pm
UUID: fbdc8d8a-ce74-4117-9eb3-30bd8d21cc36
Ancestors: System-fn.1066, System-ek.1062

- Exception>>#printVerboseOn: belongs in this package.
- Merged System-ek.1062.

=============== Diff against System-fn.1066 ===============

Item was added:
+ ----- Method: Exception>>printVerboseOn: (in category '*system') -----
+ printVerboseOn: aStream 
+ 	aStream
+ 		nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ;
+ 		cr ;
+ 		nextPutAll: 'The time is ', DateAndTime now asString ;
+ 		cr.
+ 	"Allow applications to optionally print extra details without overriding a base package."
+ 	self printDetailsOn: aStream.
+ 	aStream
+ 		nextPutAll: self signalerContext longStack ;
+ 		cr ;
+ 		nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ;
+ 		cr ;
+ 		flush!

Item was added:
+ ----- Method: MessageTally>>childrenOver: (in category 'comparing') -----
+ childrenOver: threshold
+ 
+ 	| hereTally last children |
+ 	receivers basicSize = 0 ifTrue: [^#()].
+ 	hereTally := tally.
+ 	children := receivers select:  "subtract subNode tallies for primitive hits here"
+ 		[:child |
+ 		hereTally := hereTally - child tally.
+ 		child tally > threshold].
+ 	hereTally > threshold ifTrue:
+ 		[last := MessageTally new class: class method: method nesting: blockNesting.
+ 		 last process: process.
+ 		 last reportOtherProcesses: reportOtherProcesses.
+ 		 ^children copyWith: (last primitives: hereTally)].
+ 	^children!

Item was changed:
  ----- Method: MessageTally>>leavesInto:fromSender: (in category 'collecting leaves') -----
  leavesInto: leafDict fromSender: senderTally
  
  	| rcvrs |
+ 	rcvrs := self childrenOver: 0.
- 	rcvrs := self sonsOver: 0.
  	rcvrs size = 0
  		ifTrue: [ self into: leafDict fromSender: senderTally ]
  		ifFalse: [
  			
  			(reportOtherProcesses not and: [ rcvrs anyOne process isNil ]) ifTrue: [
  				^self].
  			
  			rcvrs do: [ :node |
  				node isPrimitives
  					ifTrue: [ node leavesInto: leafDict fromSender: senderTally ]
  					ifFalse: [ node leavesInto: leafDict fromSender: self ]]]!

Item was changed:
  ----- Method: MessageTally>>rootPrintOn:total:totalTime:threshold: (in category 'printing') -----
  rootPrintOn: aStream total: total totalTime: totalTime threshold: threshold
  
+ 	| groups children |
+ 	children := self childrenOver: threshold.
+ 	groups := children groupBy: [ :aTally | aTally process ].
- 	| groups sons |
- 	sons := self sonsOver: threshold.
- 	groups := sons groupBy: [ :aTally | aTally process ].
  	groups keysAndValuesDo: [ :p :g |
  		(reportOtherProcesses or: [ p notNil ]) ifTrue: [
  			aStream nextPutAll: '--------------------------------'; cr.
  			aStream nextPutAll: 'Process: ',  (p ifNil: [ 'other processes'] ifNotNil: [ p browserPrintString]); cr.
  			aStream nextPutAll: '--------------------------------'; cr.
+ 			g sort do:[:aChild | 
+ 				aChild 
- 			g sort do:[:aSon | 
- 				aSon 
  					treePrintOn: aStream
  					tabs: OrderedCollection new
  					thisTab: ''
  					total: total
  					totalTime: totalTime
  					tallyExact: false
  					orThreshold: threshold]].
  	]!

Item was removed:
- ----- Method: MessageTally>>sonsOver: (in category 'comparing') -----
- sonsOver: threshold
- 
- 	| hereTally last sons |
- 	receivers basicSize = 0 ifTrue: [^#()].
- 	hereTally := tally.
- 	sons := receivers select:  "subtract subNode tallies for primitive hits here"
- 		[:son |
- 		hereTally := hereTally - son tally.
- 		son tally > threshold].
- 	hereTally > threshold ifTrue:
- 		[last := MessageTally new class: class method: method nesting: blockNesting.
- 		 last process: process.
- 		 last reportOtherProcesses: reportOtherProcesses.
- 		 ^sons copyWith: (last primitives: hereTally)].
- 	^sons!

Item was changed:
  ----- Method: MessageTally>>treePrintOn:tabs:thisTab:total:totalTime:tallyExact:orThreshold: (in category 'printing') -----
  treePrintOn: aStream tabs: tabs thisTab: myTab total: total totalTime: totalTime tallyExact: isExact orThreshold: threshold 
+ 	| children |
- 	| sons |
  	tabs do: [:tab | aStream nextPutAll: tab].
  	tabs size > 0 
  		ifTrue: 
  			[self 
  				printOn: aStream
  				total: total
  				totalTime: totalTime
  				tallyExact: isExact].
+ 	children := isExact ifTrue: [receivers] ifFalse: [self childrenOver: threshold].
+ 	children isEmpty 
- 	sons := isExact ifTrue: [receivers] ifFalse: [self sonsOver: threshold].
- 	sons isEmpty 
  		ifFalse: 
  			[tabs addLast: myTab.
+ 			children sort.
+ 			1 to: children size do: [ :i | 
+ 				| childTab |
+ 				childTab := i < children size ifTrue: ['  |'] ifFalse: ['  '].
+ 				(children at: i) 
- 			sons sort.
- 			1 to: sons size do: [ :i | 
- 				| sonTab |
- 				sonTab := i < sons size ifTrue: ['  |'] ifFalse: ['  '].
- 				(sons at: i) 
  					treePrintOn: aStream
  					tabs: (tabs size < self maxTabs 
  							ifTrue: [tabs]
  							ifFalse: [(tabs select: [:x | x = '[']) copyWith: '['])
+ 					thisTab: childTab
- 					thisTab: sonTab
  					total: total
  					totalTime: totalTime
  					tallyExact: isExact
  					orThreshold: threshold].
  			tabs removeLast]!