From a1db754014c68332a7eff39f5ff3fc2c08341f52 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Mon, 20 Jul 2020 16:12:53 +0200
Subject: 2020-07-20 15:36:00

---
 tex/context/base/mkiv/syst-aux.mkiv | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tex/context/base/mkiv/syst-aux.mkiv')

diff --git a/tex/context/base/mkiv/syst-aux.mkiv b/tex/context/base/mkiv/syst-aux.mkiv
index 1892605d6..fb65abce8 100644
--- a/tex/context/base/mkiv/syst-aux.mkiv
+++ b/tex/context/base/mkiv/syst-aux.mkiv
@@ -1733,6 +1733,14 @@
 \def\docopyvalue#1#2#3%
   {\expandafter\def\csname#1#3\endcsname{\csname#2#3\endcsname}}
 
+%D Experiment:
+
+\edef\m_syst_protected{\detokenize{protected}}
+
+\protected\def\aliasmacro#1#2%
+  {\doifinstring{\m_syst_protected}{\meaning#2}\protected
+   \def#1{#2}}
+
 %D \macros
 %D   {doassign,undoassign,doassignempty}
 %D
-- 
cgit v1.2.3