--- a/hedgewars/GSHandlers.inc	Sun Jul 16 08:13:51 2006 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Jul 20 20:11:32 2006 +0000
@@ -429,7 +429,8 @@
 
 begin
 HHGear:= PHedgehog(Gear.Hedgehog).Gear;
-if (HHGear.State and gstHHDriven) = 0 then
+if ((HHGear.State and gstHHDriven) = 0)
+   or (CheckGearDrowning(HHGear)) then
    begin
    DeleteMe;
    exit