--- a/hedgewars/uTeams.pas	Fri Mar 25 20:02:27 2011 -0400
+++ b/hedgewars/uTeams.pas	Sat Mar 26 22:49:38 2011 +0100
@@ -96,7 +96,7 @@
 
 procedure SwitchHedgehog;
 var c: LongWord;
-    PrevHH, PrevTeam, PrevClan: LongWord;
+    PrevHH, PrevTeam : LongWord;
 begin
 TargetPoint.X:= NoPointX;
 TryDo(CurrentTeam <> nil, 'nil Team', true);