diff --git a/src/lib/commands/sona.c b/src/lib/commands/sona.c
index 2941cf1d..0dc6a081 100644
--- a/src/lib/commands/sona.c
+++ b/src/lib/commands/sona.c
@@ -29,7 +29,7 @@
  *  Known contributors to this file:
  *     Jim Griffith, 1989
  *     Ken Stevens, 1995
- *     Markus Armbruster, 2004-2012
+ *     Markus Armbruster, 2004-2015
  */
 
 #include <config.h>
@@ -162,10 +162,8 @@ sona(void)
 		       "Sonar ping from %s detected by %s!\n",
 		       xyas(ship.shp_x, ship.shp_y,
 			    targ.shp_own), prship(&targ));
-		if (targ.shp_rflags & RET_SONARED) {
+		if (targ.shp_rflags & RET_SONARED)
 		    retreat_ship(&targ, targ.shp_own, 's');
-		    putship(targ.shp_uid, &targ);
-		}
 	    }
 	    if (dist > vrange)
 		continue;