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.55.2.1 -r1.55.2.2
--- openacs-4/packages/search/tcl/search-procs.tcl	14 Feb 2019 16:15:01 -0000	1.55.2.1
+++ openacs-4/packages/search/tcl/search-procs.tcl	1 Mar 2019 10:02:39 -0000	1.55.2.2
@@ -177,7 +177,7 @@
                                 #ns_log notice "acs_sc::invoke FtsEngineDriver"
                                 set r [acs_sc::invoke \
                                     -contract FtsEngineDriver \
-                                    -operation [ad_decode $event UPDATE update_index index] \
+                                    -operation [expr {$event eq "UPDATE" ? "update_index" : "index"}] \
                                     -call_args [list $datasource(object_id) $txt $datasource(title) $datasource(keywords)] \
                                     -impl $driver]
                             }