--- a/hedgewars/GSHandlers.inc	Sun Aug 14 16:59:55 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Sun Aug 14 17:42:26 2011 -0400
@@ -3005,7 +3005,7 @@
     if (Gear^.Pos = 14) and (RealTicks and $3 = 0) then 
         begin
         heart:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot);
-        if heart <> nil then heart^.Sprite:= sprSeduction;
+        if heart <> nil then heart^.State:= ord(sprSeduction);
         end;
 
     if Gear^.Pos = 15 then