2018-07-13 09:55:00

1 files changed, 16 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/spac-ver.lua b/tex/context/base/mkiv/spac-ver.lua
index 05055ef63..4a09379b1 100644
--- a/tex/context/base/mkiv/spac-ver.lua
+++ b/tex/context/base/mkiv/spac-ver.lua
@@ -1958,11 +1958,27 @@ do
                     if trace_collect_vspacing then report("%s > storing %s nodes in stack (initial): %s",where,newhead) end
                     stackhead = newhead
                 end
+if not flush then
+    local h = 0
+    for n, id in nextnode, stackhead do
+        if id == glue_code then
+            h = h + getwidth(n)
+        elseif id == kern_code then
+            h = h + getkern(n)
+        end
+    end
+    if h + tex.pagetotal >= tex.pagegoal then
+        newhead = stackhead
+        stackhead, stacktail = nil, nil
+        return newhead
+    end
+end
                 stacktail = newtail
              -- texlists.contrib_head = nil
              -- newhead = nil
             end
         end
+--         tex.triggerbuildpage()
         return nil
     end