beta 2011.07.13 20:14

1 files changed, 3 insertions, 2 deletions

diff --git a/tex/context/base/spac-ver.lua b/tex/context/base/spac-ver.lua
index 6796c8206..bb5a3f7f8 100644
--- a/tex/context/base/spac-ver.lua
+++ b/tex/context/base/spac-ver.lua
@@ -170,7 +170,7 @@ function vspacing.definesnapmethod(name,method)
     local t = listtohash(method)
     snapmethods[n] = t
     t.name, t.specification = name, method
-    tex.write(n)
+    context(n)
 end
 
 --~ local rule_id  = nodecodes.rule
@@ -488,7 +488,8 @@ h, d = ch, cd
     local lines = (ch+cd)/snaphtdp
     if t then
         local original = (h+d)/snaphtdp
-        t[#t+1] = format("final lines: %s -> %s",original,lines)
+        local whatever = (ch+cd)/(texdimen.globalbodyfontstrutheight + texdimen.globalbodyfontstrutdepth)
+        t[#t+1] = format("final lines: %s -> %s (%s)",original,lines,whatever)
         t[#t+1] = format("final height: %s -> %s",points(h),points(ch))
         t[#t+1] = format("final depth: %s -> %s",points(d),points(cd))
     end