--- a/hedgewars/uTeams.pas	Mon Dec 08 09:35:14 2014 -0500
+++ b/hedgewars/uTeams.pas	Mon Dec 08 10:14:47 2014 -0500
@@ -845,6 +845,7 @@
 procedure freeModule;
 var i, h: LongWord;
 begin
+CurrentHedgehog:= nil;
 if TeamsCount > 0 then
     begin
     for i:= 0 to Pred(TeamsCount) do