From 1871d95412a9b2defa54c0b20609ff4b311bcae5 Mon Sep 17 00:00:00 2001
From: Oldes Huhuman <oldes.huhuman@gmail.com>
Date: Thu, 26 Oct 2023 16:39:10 +0200
Subject: [PATCH] FIX: only using paren char escaping for chars in range `0x7F
 - 0x9F` related to: https://github.com/Oldes/Rebol-issues/issues/2574

---
 src/core/s-mold.c            | 4 +---
 src/tests/units/mold-test.r3 | 1 +
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/core/s-mold.c b/src/core/s-mold.c
index 52fd005407..7b913790eb 100644
--- a/src/core/s-mold.c
+++ b/src/core/s-mold.c
@@ -315,9 +315,7 @@ STOID Sniff_String(REBSER *ser, REBCNT idx, REB_STRF *sf)
 		default:
 			if (c == 0x1e) sf->chr1e += 4; // special case of ^(1e)
 			else if (IS_CHR_ESC(c)) sf->escape++;
-			else if (c >= 0x1000) sf->paren += 6; // ^(1234)
-			else if (c >= 0x100)  sf->paren += 5; // ^(123)
-			else if (c >= 0x7f)   sf->paren += 4; // ^(12)
+			else if (c >= 0x7f && c < 0xA0) sf->paren += 4; // ^(12)
 		}
 	}
 	if (sf->brace_in != sf->brace_out) sf->malign++;
diff --git a/src/tests/units/mold-test.r3 b/src/tests/units/mold-test.r3
index f6ffade116..31d4c349c9 100644
--- a/src/tests/units/mold-test.r3
+++ b/src/tests/units/mold-test.r3
@@ -204,6 +204,7 @@ Rebol [
 			]
 		]
 		try [delete %tmp2574]
+		--assert {"�"} = mold to string! #{F09F989C}
 
 
 ===end-group===