From 601106735985aa576ef6d773cb4fcf549b61ddf6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 6 Mar 2026 18:58:54 +0100
Subject: [PATCH] reader: fix a bug in SET-SYNTAX-FROM-CHAR

The regrssion test was added as mix.0036.reader.false-sharing.
---
 src/c/read.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/read.d b/src/c/read.d
index 8296de713..bb73f6b30 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -1921,7 +1921,7 @@ ecl_invalid_character_p(int c)
   tc = ecl_char_code(tochr);
 
   cat = ecl_readtable_get(fromrdtbl, fc, &dispatch);
-  if (ECL_READTABLEP(dispatch)) {
+  if (ECL_HASH_TABLE_P(dispatch)) {
     dispatch = si_copy_hash_table(dispatch);
   }
   ecl_readtable_set(tordtbl, tc, cat, dispatch);