2016-07-08 00:03:00

1 files changed, 13 insertions, 2 deletions

diff --git a/tex/context/base/mkiv/node-res.lua b/tex/context/base/mkiv/node-res.lua
index 89ffd1ff5..4876a862f 100644
--- a/tex/context/base/mkiv/node-res.lua
+++ b/tex/context/base/mkiv/node-res.lua
@@ -495,7 +495,7 @@ function nutpool.noad()
     return copy_nut(noad)
 end
 
-function nutpool.hlist(list,width,height,depth,shift)
+local function new_hlist(list,width,height,depth,shift)
     local n = copy_nut(hlist)
     if list then
         setlist(n,list)
@@ -515,7 +515,7 @@ function nutpool.hlist(list,width,height,depth,shift)
     return n
 end
 
-function nutpool.vlist(list,width,height,depth,shift)
+local function new_vlist(list,width,height,depth,shift)
     local n = copy_nut(vlist)
     if list then
         setlist(n,list)
@@ -535,6 +535,17 @@ function nutpool.vlist(list,width,height,depth,shift)
     return n
 end
 
+nutpool.hlist = new_hlist
+nutpool.vlist = new_vlist
+
+function nodepool.hlist(list,width,height,depth,shift)
+    return tonode(new_hlist(list and tonut(list),width,height,depth,shift))
+end
+
+function nodepool.vlist(list,width,height,depth,shift)
+    return tonode(new_vlist(list and tonut(list),width,height,depth,shift))
+end
+
 -- local num = userids["my id"]
 -- local str = userids[num]