Oops, I forgot to include
(let ((*standard-output* *inter*)) (present *branch*))
before the traverse call, though you got what happened, right.
