1 files changed, 14 insertions, 0 deletions
diff --git a/tex/context/base/strc-sec.mkiv b/tex/context/base/strc-sec.mkiv
index 94f21a12b..f26ed8e7e 100644
--- a/tex/context/base/strc-sec.mkiv
+++ b/tex/context/base/strc-sec.mkiv
@@ -112,6 +112,20 @@
 \to \everydefinehead
 
 \appendtoks
+    % beware, this is a global register
+    \begingroup
+    \edef\currentsectionheadcoupling{\sectionheadcoupling\currenthead}%
+    \edef\currentsectionheadsection {\sectionheadsection \currentsectionheadcoupling}%
+    \edef\currentsectionlevel       {\sectionlevel       \currentsectionheadsection}%
+    \ctxlua{structures.sections.register("\currenthead",{
+        coupling = "\currentsectionheadcoupling",
+        section  = "\currentsectionheadsection",
+        level    = \currentsectionlevel,
+    })}%
+    \endgroup
+\to \everydefinehead
+
+\appendtoks
  % \setevalue{\e!next \currenthead}{\donexthead [\currenthead]}%
    \setevalue{\e!start\currenthead}{\dostarthead[\currenthead]}%
    \setevalue{\e!stop \currenthead}{\dostophead[\currenthead]}%