diff --git a/src/Balloon/BalloonEngine.class.st b/src/Balloon/BalloonEngine.class.st
index 08d820f1f61..7ae4f18f58c 100644
--- a/src/Balloon/BalloonEngine.class.st
+++ b/src/Balloon/BalloonEngine.class.st
@@ -82,48 +82,118 @@ BalloonEngine class >> primitiveSetBitBltPlugin: pluginName [
 { #category : #profiling }
 BalloonEngine class >> printBezierStats [
 	<script>
-	Transcript 
-		cr; nextPutAll:'Bezier statistics:';
-		cr; tab; print: (BezierStats at: 1); tab; nextPutAll:' non-monoton curves splitted';
-		cr; tab; print: (BezierStats at: 2); tab; nextPutAll:' curves splitted for numerical accuracy';
-		cr; tab; print: (BezierStats at: 3); tab; nextPutAll:' curves splitted to avoid integer overflow';
-		cr; tab; print: (BezierStats at: 4); tab; nextPutAll:' curves internally converted to lines';
-	endEntry.
+	self
+		trace:
+			(String
+				streamContents: [ :stream | 
+					stream
+						cr;
+						nextPutAll: 'Bezier statistics:';
+						cr;
+						tab;
+						print: (BezierStats at: 1);
+						tab;
+						nextPutAll: ' non-monoton curves splitted';
+						cr;
+						tab;
+						print: (BezierStats at: 2);
+						tab;
+						nextPutAll: ' curves splitted for numerical accuracy';
+						cr;
+						tab;
+						print: (BezierStats at: 3);
+						tab;
+						nextPutAll: ' curves splitted to avoid integer overflow';
+						cr;
+						tab;
+						print: (BezierStats at: 4);
+						tab;
+						nextPutAll: ' curves internally converted to lines' ])
 ]
 
 { #category : #profiling }
-BalloonEngine class >> printStat: time count: n string: aString [
-	Transcript
+BalloonEngine class >> printStat: time count: n string: aString on: aStream [
+	aStream
 		cr;
-		print: time; tab;
-		nextPutAll:' mSecs -- ';
-		print: n; tab;
-		nextPutAll:' ops -- ';
-		print: ((time asFloat / (n max: 1) asFloat) roundTo: 0.01); tab;
+		print: time;
+		tab;
+		nextPutAll: ' mSecs -- ';
+		print: n;
+		tab;
+		nextPutAll: ' ops -- ';
+		print: (time asFloat / (n max: 1) asFloat roundTo: 0.01);
+		tab;
 		nextPutAll: ' avg. mSecs/op -- ';
-		nextPutAll: aString.
+		nextPutAll: aString
 ]
 
 { #category : #profiling }
 BalloonEngine class >> printStats [
-	<script: '
+	<script:
+		'
 	BalloonEngine doProfileStats: true.
 	BalloonEngine printStats.
 	BalloonEngine resetStats'>
-	
-	Transcript cr; nextPutAll:'/************** BalloonEngine statistics ****************/'.
-	self printStat: (Times at: 1) count: (Counts at: 1) string: 'Initialization'.
-	self printStat: (Times at: 2) count: (Counts at: 2) string: 'Finish test'.
-	self printStat: (Times at: 3) count: (Counts at: 3) string: 'Fetching/Adding GET entries'.
-	self printStat: (Times at: 4) count: (Counts at: 4) string: 'Adding AET entries'.
-	self printStat: (Times at: 5) count: (Counts at: 5) string: 'Fetching/Computing fills'.
-	self printStat: (Times at: 6) count: (Counts at: 6) string: 'Merging fills'.
-	self printStat: (Times at: 7) count: (Counts at: 7) string: 'Displaying span buffer'.
-	self printStat: (Times at: 8) count: (Counts at: 8) string: 'Fetching/Updating AET entries'.
-	self printStat: (Times at: 9) count: (Counts at: 9) string: 'Changing AET entries'.
-	Transcript cr; print: Times sum; nextPutAll:' mSecs for all operations'.
-	Transcript cr; print: Counts sum; nextPutAll: ' overall operations'.
-	Transcript endEntry.
+	| string |
+	string := String
+		streamContents: [ :aStream | 
+			aStream
+				cr;
+				nextPutAll: '/************** BalloonEngine statistics ****************/'.
+			self
+				printStat: (Times at: 1)
+				count: (Counts at: 1)
+				string: 'Initialization'
+				on: aStream.
+			self
+				printStat: (Times at: 2)
+				count: (Counts at: 2)
+				string: 'Finish test'
+				on: aStream.
+			self
+				printStat: (Times at: 3)
+				count: (Counts at: 3)
+				string: 'Fetching/Adding GET entries'
+				on: aStream.
+			self
+				printStat: (Times at: 4)
+				count: (Counts at: 4)
+				string: 'Adding AET entries'
+				on: aStream.
+			self
+				printStat: (Times at: 5)
+				count: (Counts at: 5)
+				string: 'Fetching/Computing fills'
+				on: aStream.
+			self
+				printStat: (Times at: 6)
+				count: (Counts at: 6)
+				string: 'Merging fills'
+				on: aStream.
+			self
+				printStat: (Times at: 7)
+				count: (Counts at: 7)
+				string: 'Displaying span buffer'
+				on: aStream.
+			self
+				printStat: (Times at: 8)
+				count: (Counts at: 8)
+				string: 'Fetching/Updating AET entries'
+				on: aStream.
+			self
+				printStat: (Times at: 9)
+				count: (Counts at: 9)
+				string: 'Changing AET entries'
+				on: aStream.
+			aStream
+				cr;
+				print: Times sum;
+				nextPutAll: ' mSecs for all operations'.
+			aStream
+				cr;
+				print: Counts sum;
+				nextPutAll: ' overall operations' ].
+	self trace: string
 ]
 
 { #category : #private }
diff --git a/src/FFI-Kernel/ExternalUnion.class.st b/src/FFI-Kernel/ExternalUnion.class.st
index af609421cf7..5fc2750a607 100644
--- a/src/FFI-Kernel/ExternalUnion.class.st
+++ b/src/FFI-Kernel/ExternalUnion.class.st
@@ -66,7 +66,7 @@ ExternalUnion class >> compileFields: specArray withAccessors: aSymbol [
 					ifTrue: [:sym | externalType := ExternalType structTypeNamed: sym].
 			].
 			externalType == nil ifTrue:[
-				Transcript show: '(' , fieldType , ' is void)'.
+				self trace: '(' , fieldType , ' is void)'.
 				externalType := ExternalType void.
 			].
 			isPointerField ifTrue: [externalType := externalType asPointerType: self pointerSize]].
diff --git a/src/Flashback-Decompiler-Tests/FBDExamples.class.st b/src/Flashback-Decompiler-Tests/FBDExamples.class.st
index a7190d0cbf8..c15ff52ef72 100644
--- a/src/Flashback-Decompiler-Tests/FBDExamples.class.st
+++ b/src/Flashback-Decompiler-Tests/FBDExamples.class.st
@@ -1196,9 +1196,8 @@ FBDExamples >> exampleToDoArgumentNotInlined [
 { #category : #'examples-blocks-optimized' }
 FBDExamples >> exampleToDoInsideBlock [
 	| tmp1 block |
-	tmp1 := {1.2.
-	3.4} asOrderedCollection.
-	block := [ (tmp1 at: 1) to: (tmp1 at: 4) do: [ :arg1 | Transcript show: arg1 ] ]
+	tmp1 := {1.2 . 3.4} asOrderedCollection.
+	block := [ (tmp1 at: 1) to: (tmp1 at: 4) do: [ :arg1 | self trace: arg1 ] ]
 ]
 
 { #category : #'examples-blocks-optimized' }
diff --git a/src/Glamour-Rubric-Presentations/GLMLipsumWithSegmentsExample.class.st b/src/Glamour-Rubric-Presentations/GLMLipsumWithSegmentsExample.class.st
index 306e87cc768..3166e966182 100644
--- a/src/Glamour-Rubric-Presentations/GLMLipsumWithSegmentsExample.class.st
+++ b/src/Glamour-Rubric-Presentations/GLMLipsumWithSegmentsExample.class.st
@@ -38,6 +38,6 @@ GLMLipsumWithSegmentsExample >> presentation [
 			seg := RubUnderlinedSegmentMorph from: 1000 to: 1030.
 			seg icon: (self iconNamed: #smallHelpIcon).
 			seg label: 'Print it'.
-			seg iconBlock: [ :segment :event | Transcript show: segment getText ].
+			seg iconBlock: [ :segment :event | self trace: segment getText ].
 			t addTextSegment: seg]
 ]
diff --git a/src/Kernel-Tests/DelayBenchmark.class.st b/src/Kernel-Tests/DelayBenchmark.class.st
index ab52b553583..e44f59742fa 100644
--- a/src/Kernel-Tests/DelayBenchmark.class.st
+++ b/src/Kernel-Tests/DelayBenchmark.class.st
@@ -32,37 +32,38 @@ DelayBenchmark class >> runAll [
 { #category : #benchmarks }
 DelayBenchmark >> bench [
 	"DelayBenchmark runAll."
+
 	"DelayBenchmark run."
+
 	| sampleSetSeeds trialOfNumberConcurrent completed |
-	sampleSetSeeds := #( 42 "5975 13746 22634 44022" ). "uncomment items to get a better average"
-	trialOfNumberConcurrent := #( 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000 ).
+	sampleSetSeeds := #(42).	"5975 13746 22634 44022"	"uncomment items to get a better average"
+	trialOfNumberConcurrent := #(1000 2000 3000 4000 5000 6000 7000 8000 9000 10000).
 	completed := Semaphore new.
-
-Transcript cr; crShow: 'Benchmarking ' , Delay delaySchedulerClass printString.
-[ 	trialOfNumberConcurrent do: [ :numberConcurrent |   
-		Transcript crShow:  '#ConcurrentDelays: ' , numberConcurrent printString ; space.
-		EnterCount := ExitCount := 0.
-		sampleSetSeeds do: [ :seed |  
-			Transcript show: '.'.
-			self 
-				trialConcurrent: numberConcurrent 
-				priority: Processor userSchedulingPriority + 1
-				maxDuration: 50 
-				fromSeed: seed.
-			].
-		Transcript space ;
-			show: 'EnterCount: ' , (EnterCount // (sampleSetSeeds size)) printString ; space ;
-			show: 'ExitCount: ' , (ExitCount // (sampleSetSeeds size)) printString .
-		self currentWorld doOneCycle. "since we are a higher priority would prevent transcript showing"
-		]. 
-		completed signal.
-] forkAt: Processor userSchedulingPriority + 2. "To avoid UI loop influencing result"
-
-completed wait.
-
-
- 
-		
+	self
+		crTrace: String cr , 'Benchmarking ' , Delay delaySchedulerClass printString.
+	[ trialOfNumberConcurrent
+		do: [ :numberConcurrent | 
+			self
+				crTrace: '#ConcurrentDelays: ' , numberConcurrent printString , String space.
+			EnterCount := ExitCount := 0.
+			sampleSetSeeds
+				do: [ :seed | 
+					self trace: '.'.
+					self
+						trialConcurrent: numberConcurrent
+						priority: Processor userSchedulingPriority + 1
+						maxDuration: 50
+						fromSeed: seed ].
+			self trace: String space.
+			self
+				trace:
+					'EnterCount: ' , (EnterCount // sampleSetSeeds size) printString
+						, String space.
+			self
+				trace: 'ExitCount: ' , (ExitCount // sampleSetSeeds size) printString.
+			self currentWorld doOneCycle	"since we are a higher priority would prevent transcript showing" ].
+	completed signal ] forkAt: Processor userSchedulingPriority + 2.	"To avoid UI loop influencing result"
+	completed wait
 ]
 
 { #category : #benchmarks }
diff --git a/src/Keymapping-Core/KMLog.class.st b/src/Keymapping-Core/KMLog.class.st
index 54d0366ac86..9d5ef487017 100644
--- a/src/Keymapping-Core/KMLog.class.st
+++ b/src/Keymapping-Core/KMLog.class.st
@@ -10,58 +10,37 @@ Class {
 	#category : #'Keymapping-Core-Debugging'
 }
 
+{ #category : #'class initialization' }
+KMLog class >> initialize [ 
+	debug := false
+]
+
 { #category : #logging }
 KMLog class >> log: aKeyEvent [
-
-	debug == true ifFalse: [ ^self ].
-	
-	self logger
-		nextPutAll: aKeyEvent printString;
-		cr;
-		flush.
+	debug 	ifFalse: [ ^ self ].
+	self traceCr: aKeyEvent printString
 ]
 
 { #category : #logging }
 KMLog class >> logCompleteMatch: aKeymap [
-
-	debug == true ifFalse: [ ^self ].
-	
-	self logger 
-		nextPutAll: 'Complete match: ';
-		nextPutAll: aKeymap printString;
-		cr;
-		flush.
+	debug
+		ifFalse: [ ^ self ].
+	self traceCr: 'Complete match: ' , aKeymap printString
 ]
 
 { #category : #logging }
 KMLog class >> logCompleteMatchBetween: aMorph and: aKeymap [
-
-	debug == true ifFalse: [ ^self ].
-	
-	self logger 
-		nextPutAll: aMorph printString;
-		nextPutAll: ' Complete match: ';
-		nextPutAll: aKeymap printString;
-		cr;
-		flush.
+	debug 
+		ifFalse: [ ^ self ].
+	self
+		traceCr: aMorph printString , ' Complete match: ' , aKeymap printString
 ]
 
 { #category : #logging }
 KMLog class >> logPartialMatch: anEvent [
-
-	debug == true ifFalse: [ ^self ].
-	
-	self logger 
-		nextPutAll: 'Partial match: ';
-		nextPutAll: anEvent printString;
-		cr;
-		flush.
-]
-
-{ #category : #accessing }
-KMLog class >> logger [
-
-	^Transcript
+	debug 
+		ifFalse: [ ^ self ].
+	self traceCr: 'Partial match: ' , anEvent printString
 ]
 
 { #category : #debugging }
diff --git a/src/Metacello-Base/Metacello.class.st b/src/Metacello-Base/Metacello.class.st
index 67f90a5618d..e198f3ac8f6 100644
--- a/src/Metacello-Base/Metacello.class.st
+++ b/src/Metacello-Base/Metacello.class.st
@@ -601,9 +601,7 @@ Metacello >> onWarning: aBlock [
 Metacello >> onWarningLog [
   self
     onWarning: [ :ex | 
-      Transcript
-        cr;
-        show: ex description.
+      self crTrace: ex description.
       ex resume ]
 ]
 
diff --git a/src/Metacello-GitBasedRepository/MCGitBasedNetworkRepository.class.st b/src/Metacello-GitBasedRepository/MCGitBasedNetworkRepository.class.st
index 9e551a37d00..5846f8113ee 100644
--- a/src/Metacello-GitBasedRepository/MCGitBasedNetworkRepository.class.st
+++ b/src/Metacello-GitBasedRepository/MCGitBasedNetworkRepository.class.st
@@ -412,9 +412,7 @@ MCGitBasedNetworkRepository >> flushCache [
 	[ localRepository flushCache ]
 	on: Error
 	do: [ :ex | 
-		Transcript
-			cr;
-			show: 'Error for: ' , self description printString , ' during flushCache: ', ex description printString ].
+		self crTrace: 'Error for: ' , self description printString , ' during flushCache: ', ex description printString ].
 	self class flushDownloadCache.
 	
 	directory := self calculateRepositoryDirectory.
diff --git a/src/Metacello-MC/MetacelloCommonMCSpecLoader.class.st b/src/Metacello-MC/MetacelloCommonMCSpecLoader.class.st
index 2d6a95a8da9..8a69b0d90de 100644
--- a/src/Metacello-MC/MetacelloCommonMCSpecLoader.class.st
+++ b/src/Metacello-MC/MetacelloCommonMCSpecLoader.class.st
@@ -169,9 +169,7 @@ MetacelloCommonMCSpecLoader >> loadPackageDirective: aPackageLoadDirective gofer
 				ifTrue: [ loadBlock valueSupplyingMetacelloAnswers: answers ]
 				ifFalse: [ loadBlock value ].
 			resolvedReference workingCopy repositoryGroup addRepository: aPackageLoadDirective repository.
-			Transcript
-				cr;
-				show:
+			self crTrace:
 					'Loaded -> ' , resolvedReference name , ' --- '
 						, aPackageLoadDirective repository repositoryDescription , ' --- '
 						, resolvedReference repository description
@@ -197,9 +195,7 @@ MetacelloCommonMCSpecLoader >> loadPackageDirectives: pkgLoads gofer: aGofer [
               goferLoad addResolved: resolvedReference.
               answers addAll: packageLoadDirective spec answers.
               packageLoadDirective resolvedReference: resolvedReference ] ].
-      Transcript
-        cr;
-        show: 'Starting atomic load'.
+     self crTrace: 'Starting atomic load'.
       loadBlock := [ 
       "pkgLoads do: [:packageLoadDirective |  mcLoader preLoad: packageLoadDirective spec ]."
       goferLoad execute.
@@ -229,9 +225,7 @@ MetacelloCommonMCSpecLoader >> loadPackageDirectives: pkgLoads gofer: aGofer [
       answers notEmpty
         ifTrue: [ loadBlock valueSupplyingMetacelloAnswers: answers ]
         ifFalse: [ loadBlock value ].
-      Transcript
-        cr;
-        show: 'Finished atomic load' ]
+      self crTrace: 'Finished atomic load' ]
     displaying: 'Atomic Load...'
 ]
 
@@ -371,9 +365,7 @@ MetacelloCommonMCSpecLoader >> retryingResolvePackageSpecReferences: packageSpec
         whileTrue: [ 
             retryCount > 0
                 ifTrue: [ 
-                    Transcript
-                        cr;
-                        show: '...RETRY->' , packageSpec file ].
+                    self crTrace: '...RETRY->' , packageSpec file ].
             references := [ self resolvePackageSpecReferences: packageSpec gofer: gofer ]
                 on: Error , GoferRepositoryError
                 do: [ :ex | 
@@ -384,9 +376,7 @@ MetacelloCommonMCSpecLoader >> retryingResolvePackageSpecReferences: packageSpec
                             (ex isKindOf: GoferRepositoryError)
                                 ifTrue: [ 
                                     "ignore repository errors at this point, in case an alternate repository is in the list "
-                                    Transcript
-                                        cr;
-                                        show: 'gofer repository error: ' , ex description printString , '...ignoring'.
+                                   self crTrace: 'gofer repository error: ' , ex description printString , '...ignoring'.
                                     repositoryError := ex.
                                     ex resume: #() ]
                                 ifFalse: [ ex pass ] ].
@@ -394,9 +384,7 @@ MetacelloCommonMCSpecLoader >> retryingResolvePackageSpecReferences: packageSpec
             retryCount := retryCount + 1 ].
     references isEmpty
         ifTrue: [ 
-            Transcript
-                cr;
-                show: '...FAILED->' , packageSpec file.
+            self crTrace: '...FAILED->' , packageSpec file.
             (MetacelloPackageSpecResolutionError new
                 packageSpec: packageSpec;
                 repositories: gofer repositories;
diff --git a/src/Metacello-TestsMC/MetacelloDictionaryRepositoryTest.class.st b/src/Metacello-TestsMC/MetacelloDictionaryRepositoryTest.class.st
index 43542e783dd..96df18542a1 100644
--- a/src/Metacello-TestsMC/MetacelloDictionaryRepositoryTest.class.st
+++ b/src/Metacello-TestsMC/MetacelloDictionaryRepositoryTest.class.st
@@ -133,9 +133,7 @@ MetacelloDictionaryRepositoryTest >> tearDown [
 	diff := finalWorkingCopyList difference: initialWorkingCopyList.
 	diff
 		do: [ :leak | 
-			Transcript
-				cr;
-				show: 'leaked package from ' , self printString , ' -> ' , leak printString ].
+			self crTrace: 'leaked package from ' , self printString , ' -> ' , leak printString ].
 	self assertEmpty: diff.
 	super tearDown
 ]
diff --git a/src/MonticelloFileTree-Core/MCFileTreeAbstractReader.class.st b/src/MonticelloFileTree-Core/MCFileTreeAbstractReader.class.st
index 4116e10b39d..b56da25c763 100644
--- a/src/MonticelloFileTree-Core/MCFileTreeAbstractReader.class.st
+++ b/src/MonticelloFileTree-Core/MCFileTreeAbstractReader.class.st
@@ -203,9 +203,7 @@ MCFileTreeAbstractReader >> packageProperties [
                                         ifTrue: [ self error: 'noMethodMetaData and separateMethodMetaAndSource cannot both be true' ] ] ]
                                 on: Error
                                 do: [ :ex | 
-                                    Transcript
-                                        cr;
-                                        show:
+                                    self crTrace:
                                                 'Error reading package properties (.filetree): ' , packageDirectory pathName , ' :: ' , ex description ] ] ] ].
     ^ packageProperties
 ]
diff --git a/src/Moose-Algos-Graph/MalHal.class.st b/src/Moose-Algos-Graph/MalHal.class.st
index 1295ead3ee9..acddbaff806 100644
--- a/src/Moose-Algos-Graph/MalHal.class.st
+++ b/src/Moose-Algos-Graph/MalHal.class.st
@@ -62,10 +62,19 @@ MalHal >> runTarjan [
 
 { #category : #logging }
 MalHal >> showLevels [
+	self
+		trace: (String streamContents: [ :stream | self writeLevelsOn: stream ])
+]
 
-	self hierarchyLevels keysAndValuesDo: [ :k :v |
-			Transcript show: k.
-			v do: [ :n | Transcript show: ' ' ; show: n ].
-			Transcript cr
-		]
+{ #category : #writing }
+MalHal >> writeLevelsOn: aStream [
+	self hierarchyLevels
+		keysAndValuesDo: [ :k :v | 
+			aStream nextPutAll: k.
+			v
+				do: [ :n | 
+					aStream
+						nextPutAll: ' ';
+						nextPutAll: n ].
+			aStream cr ]
 ]
diff --git a/src/Morphic-Widgets-FastTable/FTExamples.class.st b/src/Morphic-Widgets-FastTable/FTExamples.class.st
index 92c6807d626..d5fd9595156 100644
--- a/src/Morphic-Widgets-FastTable/FTExamples.class.st
+++ b/src/Morphic-Widgets-FastTable/FTExamples.class.st
@@ -420,8 +420,11 @@ FTExamples class >> exampleListWithExplicitFilterAndActionButton [
 	| list |
 	list := FTTableMorph new
 		extent: 300 @ 300;
-		dataSource: (FTExampleDataSource elements: (Smalltalk allClassesAndTraits sorted: [ :a :b | a name < b name ]));
-		enableFilterWithAction: [ :dataSource :searchPattern | Transcript crShow: searchPattern ] named: 'Show';
+		dataSource:
+			(FTExampleDataSource
+				elements: (Smalltalk allClassesAndTraits sorted: [ :a :b | a name < b name ]));
+		enableFilterWithAction: [ :dataSource :searchPattern | self crTrace: searchPattern ]
+			named: 'Show';
 		yourself.
 	list openInWindow
 ]
diff --git a/src/Network-Mail/MailMessage.class.st b/src/Network-Mail/MailMessage.class.st
index c9051dd6ca6..4b04de9f42c 100644
--- a/src/Network-Mail/MailMessage.class.st
+++ b/src/Network-Mail/MailMessage.class.st
@@ -631,30 +631,29 @@ MailMessage >> name [
 { #category : #multipart }
 MailMessage >> parseParts [
 	"private -- parse the parts of the message and store them into a collection"
+
 	"If this is not multipart, store an empty collection"
+
 	| parseStream msgStream messages separator |
-	self body isMultipart ifFalse: 
-		[ parts := #().
-		^ self ].
+	self body isMultipart
+		ifFalse: [ parts := #().
+			^ self ].
 
 	"If we can't find a valid separator, handle it as if the message is not multipart"
 	separator := self attachmentSeparator.
-	separator ifNil: 
-		[ Transcript
-			show: 'Ignoring bad attachment separater';
-			cr.
-		parts := #().
-		^ self ].
+	separator
+		ifNil: [ self traceCr: 'Ignoring bad attachment separater'.
+			parts := #().
+			^ self ].
 	separator := '--' , separator trimRight.
 	parseStream := self bodyText readStream.
-	msgStream := LimitingLineStreamWrapper 
+	msgStream := LimitingLineStreamWrapper
 		on: parseStream
 		delimiter: separator.
-	msgStream limitingBlock: 
-		[ :aLine | 
-		aLine trimRight = separator or: 
-			[ "Match the separator"
-			aLine trimRight = (separator , '--') ] ].	"or the final separator with --"
+	msgStream
+		limitingBlock: [ :aLine | 
+			aLine trimRight = separator
+				or: [ "Match the separator" aLine trimRight = (separator , '--') ] ].	"or the final separator with --"
 
 	"Throw away everything up to and including the first separator"
 	msgStream upToEnd.
@@ -662,9 +661,9 @@ MailMessage >> parseParts [
 
 	"Extract each of the multi-parts as strings"
 	messages := OrderedCollection new.
-	[ parseStream atEnd ] whileFalse: 
-		[ messages add: msgStream upToEnd.
-		msgStream skipThisLine ].
+	[ parseStream atEnd ]
+		whileFalse: [ messages add: msgStream upToEnd.
+			msgStream skipThisLine ].
 	parts := messages collect: [ :e | MailMessage from: e ]
 ]
 
diff --git a/src/Rubric/RubSmalltalkEditor.class.st b/src/Rubric/RubSmalltalkEditor.class.st
index b62f6be0856..10227a3d3bd 100644
--- a/src/Rubric/RubSmalltalkEditor.class.st
+++ b/src/Rubric/RubSmalltalkEditor.class.st
@@ -410,21 +410,17 @@ RubSmalltalkEditor >> computeSelectionIntervalFromCommentIn: aString at: anInter
 
 { #category : #'do-its' }
 RubSmalltalkEditor >> debug: aStream [
-
 	| method receiver context |
-	(self model respondsTo: #doItReceiver) 
-		ifTrue: 
-			[receiver := self model doItReceiver.
-			context := self model doItContext]
-		ifFalse:
-			[receiver := context := nil].
+	(self model respondsTo: #doItReceiver)
+		ifTrue: [ receiver := self model doItReceiver.
+			context := self model doItContext ]
+		ifFalse: [ receiver := context := nil ].
 	method := self compile: aStream for: receiver in: context.
-	
-	method isReturnSpecial ifTrue:[ self inform:'Nothing to debug, the expression is optimized'. ^self.].
-	
-	method notNil ifTrue: [
-		self debug: method receiver: receiver in: context ].
-	
+	method isReturnSpecial
+		ifTrue: [ self inform: 'Nothing to debug, the expression is optimized'.
+			^ self ].
+	method notNil
+		ifTrue: [ self debug: method receiver: receiver in: context ]
 ]
 
 { #category : #'do-its' }
diff --git a/src/UIManager/DummyUIManager.class.st b/src/UIManager/DummyUIManager.class.st
index ec334276af0..59244f03cfe 100644
--- a/src/UIManager/DummyUIManager.class.st
+++ b/src/UIManager/DummyUIManager.class.st
@@ -165,10 +165,12 @@ DummyUIManager >> syntaxErrorNotificationDefaultAction: anException [
 
 { #category : #'default actions' }
 DummyUIManager >> unhandledErrorDefaultAction: anException [
-
 	self traceCr: '*** EXCEPTION ***'.
 	self traceCr: anException.
-	anException signalerContext errorReportOn: Transcript.
+	self
+		trace:
+			(String
+				streamContents: [ :stream | anException signalerContext errorReportOn: stream ]).
 	Smalltalk exitFailure
 ]