Index: openacs-4/packages/search/search.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/search.info,v
diff -u -r1.30.2.9 -r1.30.2.10
--- openacs-4/packages/search/search.info	4 Oct 2008 23:12:43 -0000	1.30.2.9
+++ openacs-4/packages/search/search.info	5 Oct 2008 01:13:50 -0000	1.30.2.10
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.4.3" url="http://openacs.org/repository/download/apm/search-5.4.3.apm">
+    <version name="5.4.4b" url="http://openacs.org/repository/download/apm/search-5.4.4b.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <release-date>2008-10-03</release-date>
         <maturity>3</maturity>
@@ -17,7 +17,7 @@
         <license url="http://www.gnu.org/copyleft/gpl.html">GPL version 2</license>
         <description format="text/html">Site wide search implemented with service contracts, currently supports postgres via the tsearch2 driver (OpenFTS still support but deprecated).</description>
 
-        <provides url="search" version="5.4.3"/>
+        <provides url="search" version="5.4.4b"/>
         <requires url="acs-service-contract" version="5.4.3"/>
 
         <callbacks>
Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -r1.31 -r1.31.2.1
--- openacs-4/packages/search/www/search.tcl	5 Jan 2008 17:44:10 -0000	1.31
+++ openacs-4/packages/search/www/search.tcl	5 Oct 2008 01:13:50 -0000	1.31.2.1
@@ -123,10 +123,10 @@
 }
 set tend [clock clicks -milliseconds]
 
-if { $t eq "Feeling Lucky" && $result(count) > 0} {
+if { $t eq [_ search.Feeling_Lucky] && $result(count) > 0} {
     set object_id [lindex $result(ids) 0]
     set object_type [acs_object_type $object_id]
-    if {[callback::impl_exists -impl -callback search::url]} {
+    if {[callback::impl_exists -impl $object_type -callback search::url]} {
 	set url [callback -impl $object_type search::url -object_id $object_id]
     } else {
 	set url [acs_sc_call FtsContentProvider url [list $object_id] $object_type]