--- a/hedgewars/uGearsList.pas	Fri Oct 11 11:55:31 2013 +0200
+++ b/hedgewars/uGearsList.pas	Fri Oct 11 17:43:13 2013 +0200
@@ -283,6 +283,7 @@
                 gear^.RenderTimer:= true;
                 gear^.Elasticity:= _0_9;
                 gear^.Tag:= 0;
+                gear^.State:= Gear^.State or gstSubmersible
                 end;
    gtSeduction: begin
                 gear^.Radius:= 250;