diff -ur --exclude=CVS D:\vlad\programming\perl\lib_dev\DBIx-FullTextSearch-0.61/lib/DBIx/FullTextSearch/String.pm D:\vlad\programming\perl\lib_dev\DBIx-FullTextSearch-0.61_patched/lib/DBIx/FullTextSearch/String.pm
--- D:\vlad\programming\perl\lib_dev\DBIx-FullTextSearch-0.61/lib/DBIx/FullTextSearch/String.pm	Fri Mar 23 17:00:38 2001
+++ D:\vlad\programming\perl\lib_dev\DBIx-FullTextSearch-0.61_patched/lib/DBIx/FullTextSearch/String.pm	Wed May 01 14:38:44 2002
@@ -56,6 +56,12 @@
 	$self->SUPER::index_document($id, $data);
 }
 
+sub delete_document {
+  my ($self, $doc_id) = @_;
+  
+  $self->SUPER::delete_document($self->get_id_for_name($doc_id));
+}
+
 sub contains_hashref {
 	my $self = shift;
 	my $res = $self->SUPER::contains_hashref(@_);