--- a/hedgewars/uGearsRender.pas	Fri Nov 28 14:58:33 2014 -0500
+++ b/hedgewars/uGearsRender.pas	Sat Nov 29 01:19:29 2014 +0100
@@ -624,7 +624,7 @@
 
         if ((Gear^.State and gstAnimation) <> 0) then
             begin
-            if (TWave(Gear^.Tag) < Low(TWave)) or (TWave(Gear^.Tag) > High(TWave)) then
+            if (Gear^.Tag < LongInt(ord(Low(TWave)))) or (Gear^.Tag > LongInt(ord(High(TWave)))) then
                 begin
                 Gear^.State:= Gear^.State and (not gstAnimation);
                 end