help with foldts*-values from (sxml fold) ?

[Matt Wette]

Hi,

I'm trying to learn to use sxml currently having issues with foldts*-values.  I 
can't find specification of the function signatures.   I do have Andy Wingo's 
paper.   When I feed a tree to the routine consol-runs-3 below I get error 
regarding number of args to fh. call signature for fh?   Any clue what I've got 
wrong?  -- Matt

(define (consol-runs-3 s0)
  (letrec (;; fd: node seed ...
           (fd (lambda (node seed vars)
                 (values node vars)))
           ;; fu: node seed ...
           (fu (lambda (node seed vars kseed kvars)
                 (values seed vars)))
           ;; fh: atom seed ...
           (fh (lambda (atom seed vars)
                 (values atom vars)))
           )
    (foldts*-values fd fu fh s0 '() '())))

In sxml/fold.scm:
 104: 2 [foldts*-values #<procedure fd (node seed vars)> ...]
  89: 1 [fold-values #<procedure 104e4d0f0 at sxml/fold.scm:105:23 (tree . 
seeds)> ...]
In /.../dvP4.scm:
  21: 0 [fh elt ()]

/.../dvP4.scm:21:15: In procedure fh:
/.../dvP4.scm:21:15: Wrong number of arguments to #<procedure fh (atom seed 
vars)>