Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -N -r1.31 -r1.32
--- openacs-4/packages/search/tcl/search-procs.tcl	11 Mar 2006 14:33:00 -0000	1.31
+++ openacs-4/packages/search/tcl/search-procs.tcl	3 Jun 2006 00:09:53 -0000	1.32
@@ -99,8 +99,8 @@
 
     set driver [ad_parameter -package_id [apm_package_id_from_key search] FtsEngineDriver]
 
-    if {[empty_string_p $driver]
-        || (![callback::exists -callback search::index -impl $driver] && ! [acs_sc_binding_exists_p FtsEngineDriver $driver]} {
+    if { $driver eq ""
+         || (![callback::exists -callback search::index -impl $driver] && ! [acs_sc_binding_exists_p FtsEngineDriver $driver])} {
         # Nothing to do if no driver
         ns_log Debug "search::indexer: driver=$driver binding exists? [acs_sc_binding_exists_p FtsEngineDriver $driver]"
         return
@@ -390,4 +390,4 @@
 	return $community_id
     } 
     return ""
-}
\ No newline at end of file
+}