--- a/hedgewars/uGears.pas	Mon Aug 01 13:29:01 2011 -0400
+++ b/hedgewars/uGears.pas	Mon Aug 01 15:37:27 2011 -0400
@@ -1069,7 +1069,7 @@
                 while i < vampDmg do
                     begin
                     vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtHealth);
-                    if vg <> nil then vg^.Frame:= 10;
+                    if vg <> nil then vg^.Tint:= $FF0000FF;
                     inc(i, 5);
                     end;
                 end