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 -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	10 Oct 2002 16:52:29 -0000	1.4.2.1
+++ openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	10 Oct 2002 17:01:32 -0000	1.4.2.2
@@ -23,7 +23,9 @@
 
     array set self [Search::OpenFTS::new ofts]
     if ![array size self] {
+        Search::OpenFTS::DESTROY
         error "Search failed."
+        return
     }
 
     set opt(rejected) [list]
@@ -82,6 +84,8 @@
     if { $result(count) > 0} { 
 	db_foreach sql_sort $sql_sort {lappend result(ids) $object_id}
     }
+    Search::OpenFTS::DESTROY
+
     return [array get result]
 
 }
@@ -106,7 +110,8 @@
     array set idx [Search::OpenFTS::Index::new]
 
     Search::OpenFTS::Index::index idx $tid $txt $title
-    
+    Search::OpenFTS::DESTROY
+
     return
 
 }
@@ -121,6 +126,7 @@
     array set idx [Search::OpenFTS::Index::new]
 
     Search::OpenFTS::Index::delete idx $tid
+    Search::OpenFTS::DESTROY
 
     return
 }
@@ -138,6 +144,7 @@
 
     openfts_driver__unindex $tid
     openfts_driver__index $tid $txt $title $keywords
+    Search::OpenFTS::DESTROY
 
     return
 }
@@ -166,8 +173,10 @@
 
     array set fts [Search::OpenFTS::new ofts]
 
-    return [Search::OpenFTS::get_headline fts opts]
+    set summary [Search::OpenFTS::get_headline fts opts]
+    Search::OpenFTS::DESTROY
 
+    return $summary
 }