written by Christoph Badura. This was reported to work by user of this code. It's not tested by me, but it's probably more useful in tree anyway.