1 files changed, 21 insertions, 0 deletions
diff --git a/tex/context/base/core-spa.tex b/tex/context/base/core-spa.tex
index c96405246..db13c4992 100644
--- a/tex/context/base/core-spa.tex
+++ b/tex/context/base/core-spa.tex
@@ -2019,6 +2019,25 @@
 
 \let\restoreinterlinespace\relax
 
+\beginTEX
+
+\def\saveinterlinespace
+  {\scratchdimen\normallineheight
+   \edef\restoreinterlinespace
+     {\lineheight         \the\lineheight
+      \openstrutheight    \the\openstrutheight
+      \openstrutdepth     \the\openstrutdepth
+      \openlineheight     \the\openlineheight
+      \normalbaselineskip \the\normalbaselineskip
+      \normallineskip     \the\normallineskip
+      \normallineskiplimit\the\normallineskiplimit
+      \noexpand\def\noexpand\normallineheight{\the\scratchdimen}%
+      \noexpand\normalbaselines}}
+
+\endTEX
+
+\beginETEX
+
 \def\saveinterlinespace
   {\edef\restoreinterlinespace
      {\lineheight         \the\lineheight
@@ -2031,6 +2050,8 @@
       \noexpand\def\noexpand\normallineheight{\the\dimexpr\normallineheight\relax}%
       \noexpand\normalbaselines}}
 
+\endETEX
+
 % plain definition:
 %
 % \def\strut{\relax\ifmmode\copy\strutbox\else\unhcopy\strutbox\fi}