Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/search/www/search.tcl	15 Sep 2001 21:31:50 -0000	1.3
+++ openacs-4/packages/search/www/search.tcl	15 Sep 2001 23:23:52 -0000	1.4
@@ -58,7 +58,7 @@
 array set result [acs_sc_call FtsEngineDriver search [list $q $offset $limit $user_id $df $dt] $driver]
 set tend [clock clicks -milliseconds]
 
-if { $t == "Feeling Lucky" } {
+if { $t == "Feeling Lucky" && $result(count) > 0} {
     set object_id [lindex $result(ids) 0]
     set object_type [db_exec_plsql get_object_type "select acs_object_util__get_object_type($object_id)"]
     set url [acs_sc_call FtsContentProvider url [list $object_id] $object_type]