Index: ai/aihunt.c
===================================================================
RCS file: /home/freeciv/CVS/freeciv/ai/aihunt.c,v
retrieving revision 1.7
diff -u -r1.7 aihunt.c
--- ai/aihunt.c	29 Aug 2004 10:01:15 -0000	1.7
+++ ai/aihunt.c	29 Aug 2004 18:44:32 -0000
@@ -276,8 +276,9 @@
 
       if (ptile->city
           || TEST_BIT(target->ai.hunted, pplayer->player_no)
-          || !is_ocean(ptile->terrain)
-          || !is_sailing_unit(target)
+          || (!is_ocean(ptile->terrain) && is_sailing_unit(punit))
+          || (!is_sailing_unit(target) && is_sailing_unit(punit))
+          || (is_sailing_unit(target) && !is_sailing_unit(punit))
           || !goto_is_sane(punit, target->x, target->y, TRUE)) {
         /* Can't hunt this one. */
         continue;