--- a/hedgewars/uGearsList.pas	Sun Sep 29 19:03:15 2013 -0400
+++ b/hedgewars/uGearsList.pas	Mon Sep 30 12:37:44 2013 -0400
@@ -281,6 +281,7 @@
                 gear^.RenderTimer:= true;
                 gear^.Elasticity:= _0_9;
                 gear^.Tag:= 0;
+                gear^.State:= Gear^.State or gstSubmersible
                 end;
    gtSeduction: begin
                 gear^.Radius:= 250;