Better error loggin

src/TinyLogger-Tests/TinyLoggerTest.class.st

@@ -213,7 +213,7 @@ TinyLoggerTest >> testExecuteRecordedAsKeepRightIndentation [
 	"Ensure we have the right indentation."
 	self assert: errorDetected.
 	self assert: contents withUnixLineEndings equals: 'No time : 	Begin: This is a new test
-No time : 	End with error: This is a new test.Error message: test
+No time : 	End with error: This is a new test.Error message: "Error: test"
 No time : 	Begin: This is a new test
 No time : 		test
 No time : 	End: This is a new test

src/TinyLogger/TinyLogger.class.st

@@ -194,12 +194,12 @@ TinyLogger >> execute: aBlock recordedAs: aString [
 	[ result := aBlock cull: aString ]
 		on: Error
 		do: [ :exception | "If there is an error, we keep the message and pass it. The message will be used in the #ifCurtailed: to ensure we keep the right indentation and print a better result to the user."
-			errorMessage := exception messageText.
+			errorMessage := exception printString.
 			exception pass ] ] ifCurtailed: [ "If there is an unexpected termination of the execution, print that there was an error."
 		self decreaseDepthLevel.
 		self record: 'End with error: ' , aString , '.' , (errorMessage
 				 ifNil: [ '' ]
-				 ifNotNil: [ 'Error message: ' , errorMessage ]).
+				 ifNotNil: [ 'Error message: "' , errorMessage , '"' ]).
 		self decreaseDepthLevel ].
 
 	self decreaseDepthLevel.