Index: ai/aihunt.c
===================================================================
RCS file: /home/freeciv/CVS/freeciv/ai/aihunt.c,v
retrieving revision 1.6
diff -u -r1.6 aihunt.c
--- ai/aihunt.c	25 Jun 2004 23:43:01 -0000	1.6
+++ ai/aihunt.c	28 Aug 2004 20:31:57 -0000
@@ -413,7 +413,9 @@
       } pf_iterator_end;
       pf_destroy_map(map);
       if (sucker) {
-        unload_unit_from_transporter(missile);
+        if (find_unit_by_id(missile->transported_by)) {
+          unload_unit_from_transporter(missile);
+        }
         ai_unit_goto(missile, sucker->x, sucker->y);
         sucker = find_unit_by_id(target_sanity); /* Sanity */
         if (sucker && is_tiles_adjacent(sucker->x, sucker->y, missile->x, missile->y)) {