--- a/hedgewars/GSHandlers.inc	Sat Aug 18 15:16:03 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Sat Aug 18 20:53:49 2007 +0000
@@ -1188,7 +1188,6 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepSwitcherWork(Gear: PGear);
 var HHGear: PGear;
-    th: LongInt;
     Msg, State: Longword;
 begin
 AllInactive:= false;
@@ -1218,7 +1217,6 @@
    RemoveGearFromList(HHGear);
    InsertGearToList(HHGear);
 
-   th:= CurrentTeam^.CurrHedgehog;
    repeat
      CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);
    until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);