Lisp/VCPS: Bugfix for construct-random-tree