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 -r1.44 -r1.45
--- openacs-4/packages/search/tcl/search-procs.tcl	24 Jun 2008 19:09:25 -0000	1.44
+++ openacs-4/packages/search/tcl/search-procs.tcl	13 Feb 2009 21:26:43 -0000	1.45
@@ -98,7 +98,7 @@
     @author Jeff Davis (davis@xarg.net)
 } {
 
-    set driver [ad_parameter -package_id [apm_package_id_from_key search] FtsEngineDriver]
+    set driver [parameter::get -package_id [apm_package_id_from_key search] -parameter FtsEngineDriver]
 
     if { $driver eq ""
          || (![callback::impl_exists -callback search::index -impl $driver] && ! [acs_sc_binding_exists_p FtsEngineDriver $driver])} {