Index: openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	25 Mar 2004 23:20:01 -0000	1.7
+++ openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	14 May 2004 10:51:21 -0000	1.8
@@ -103,18 +103,17 @@
 
     set exists_p [db_0or1row exists_p {select 1 from txt where tid=:tid}]
 
-    if ![set exists_p] {
-
+    if {! $exists_p} {
 	db_dml insert_tid {insert into txt (tid) values (:tid)}
-
+    } else {
+        openfts_driver__unindex $tid
     }
-    array set idx [Search::OpenFTS::Index::new]
 
-    Search::OpenFTS::Index::index idx $tid $txt $title
+    array set idx [Search::OpenFTS::Index::new]
+    catch { Search::OpenFTS::Index::index idx $tid $txt $title } 
     Search::OpenFTS::DESTROY
 
     return
-
 }
 
 
@@ -123,7 +122,6 @@
 } {
     @author Neophytos Demetriou
 } {
-
     array set idx [Search::OpenFTS::Index::new]
 
     Search::OpenFTS::Index::delete idx $tid