Index: ai/aiunit.c
===================================================================
RCS file: /home/freeciv/CVS/freeciv/ai/aiunit.c,v
retrieving revision 1.281
diff -u -r1.281 aiunit.c
--- ai/aiunit.c	2003/08/01 15:58:07	1.281
+++ ai/aiunit.c	2003/08/02 10:56:54
@@ -2065,6 +2079,12 @@
                          && !(goto_is_sane(punit, acity->x, acity->y, TRUE) 
                               && WARMAP_COST(acity->x, acity->y) < maxd));
 
+      if (!is_ocean(map_get_terrain(acity->x, acity->y)) 
+          && unit_flag(punit, F_NO_LAND_ATTACK)) {
+        /* Can't attack this city. It is on land. */
+        continue;
+      }
+      
       if (handicap && !map_is_known(acity->x, acity->y, pplayer)) {
         /* Can't see it */
         continue;