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.32
--- 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 00:47:15 -0000	1.32
@@ -48,7 +48,7 @@
     ad_script_abort
 }
 
-if {"" eq [string trim $q]} {
+if {[string trim $q] eq ""} {
     set query {}
     set empty_p 1
     set url_advanced_search "advanced-search"
@@ -126,7 +126,7 @@
 if { $t eq "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]