1 files changed, 18 insertions, 1 deletions
diff --git a/tex/context/base/spac-grd.mkiv b/tex/context/base/spac-grd.mkiv
index 243e20817..979f56056 100644
--- a/tex/context/base/spac-grd.mkiv
+++ b/tex/context/base/spac-grd.mkiv
@@ -228,7 +228,7 @@
   {\ifvmode
      \bgroup
      \setbaselinecorrections
-     \whitespace
+     \whitespace % no longer ok
      \nointerlineskip
      \dotopbaselinecorrection
      \egroup
@@ -246,6 +246,23 @@
 
 \let\forcedbotbaselinecorrection\botbaselinecorrection
 
+% experiment, todo: proper mkiv mechanism
+
+\def\dotopbaselinecorrection   {\blank[\thetopbaselinecorrection   ]}
+\def\dobotbaselinecorrection   {\blank[\thebotbaselinecorrection   ]}
+\def\donegtopbaselinecorrection{\blank[\thenegtopbaselinecorrection]}
+\def\donegbotbaselinecorrection{\blank[\thenegbotbaselinecorrection]}
+
+\def\forcedtopbaselinecorrection
+  {\ifvmode
+     \bgroup
+     \setbaselinecorrections
+  %  \vspacing[white]
+     \nointerlineskip
+     \dotopbaselinecorrection
+     \egroup
+\fi}
+
 \let\normalstartbaselinecorrection\startbaselinecorrection
 
 \unexpanded\def\startbaselinecorrection