--- a/hedgewars/uVisualGearsHandlers.pas	Mon Mar 16 11:12:18 2015 +0300
+++ b/hedgewars/uVisualGearsHandlers.pas	Tue Mar 17 23:57:26 2015 +0300
@@ -515,7 +515,8 @@
 procedure doStepTeamHealthSorterWork(Gear: PVisualGear; Steps: Longword);
 var i, t, h: LongInt;
 begin
-for t:= 1 to min(Steps, Gear^.Timer) do
+if currsorter = Gear then
+  for t:= 1 to min(Steps, Gear^.Timer) do
     begin
     dec(Gear^.Timer);
     if (Gear^.Timer and 15) = 0 then