Replace long worm on map after removing tail with wormgone

Calling wormgone will also remove the long worm monster from
the map, not just the worm tail. Put the monster back on map
so relmon can actually remove it properly.

diff --git a/src/dog.c b/src/dog.c
index 71a4ea289ff9efddda41ad1d2de6d528d7d61a44..85e61823625a4f79116fe6e02a9154e943f434d4 100644 (file)
--- a/src/dog.c
+++ b/src/dog.c
@@ -651,6 +651,7 @@ boolean pets_only; /* true for ascension or final escape */
                 cnt = count_wsegs(mtmp);
                 num_segs = min(cnt, MAX_NUM_WORMS - 1);
                 wormgone(mtmp);
+                place_monster(mtmp, mtmp->mx, mtmp->my);
             } else
                 num_segs = 0;
 
@@ -701,6 +702,7 @@ coord *cc;   /* optional destination coordinates */
         cnt = count_wsegs(mtmp);
         num_segs = min(cnt, MAX_NUM_WORMS - 1);
         wormgone(mtmp);
+        place_monster(mtmp, mtmp->mx, mtmp->my);
     }
 
     /* set minvent's obj->no_charge to 0 */