{
	my $old = \&HTML::TableExtract::TableState::_taste_text;
	no warnings;
	*HTML::TableExtract::TableState::_taste_text = sub {
		local *HTML::TableExtract::TableState::_taste_text = $old;
		eval { shift->_taste_text(@_) }; 
		print STDERR $@ if $@; die $@;
	};
};