sub fixup {
    my ($tree, $elem) = @_;

    my $tag = $elem->tag;
    plog("in fixup:  tag = $tag");

    if ($fixup_tag{$tag}) {
        my $t = $elem->text;
        conv_chars(\$t);
        $elem->set_text($t);
    }

    $elem->print;
}