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.6 -r1.7
--- openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	17 Nov 2003 00:22:36 -0000	1.6
+++ openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	25 Mar 2004 23:20:01 -0000	1.7
@@ -174,7 +174,9 @@
 
     array set fts [Search::OpenFTS::new ofts]
 
-    set summary [Search::OpenFTS::get_headline fts opts]
+    if {[catch {set summary [Search::OpenFTS::get_headline fts opts]} errMsg]} {
+        return "WARNING: summary create failed."
+    }
     Search::OpenFTS::DESTROY
 
     return $summary