FIX: redundant message when logging an error value

resolves: Oldes/Rebol-issues#2578
Oldes · Nov 13, 2023 · a87e667 · a87e667
1 parent a1b79b7
commit a87e667
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/mezz/sys-base.reb b/src/mezz/sys-base.reb
@@ -236,12 +236,12 @@ log: func [
 	/local level
 ][
 	if error [
-		msg: form either block? msg [reduce msg][msg]
+		msg: trim/head/tail form either block? msg [reduce msg][msg]
 		foreach line split-lines msg [
 			print ajoin [
 				" ^[[35m[" id "] ^[[1m"
 				either line/1 = #"*" []["** Error: "]
-				copy/part line 100
+				copy/part line 200 ;@@ I am not sure with this line length limit
 				"^[[0m"
 			]
 		]