sub DESTROY {
  my $self = shift;
  local $@;
  eval { $self->{tree} = $self->{tree}->delete(); }; 
}