diff -r 8548f5be2d72 -r b0588498bc3a hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Mon May 11 19:42:29 2009 +0000
+++ b/hedgewars/uGears.pas	Mon May 11 21:19:47 2009 +0000
@@ -591,7 +591,7 @@
 			ParseCommand('/nextturn', true);
 			SwitchHedgehog;
 
-			inc(step);
+			inc(step); // FIXME wtf is that, it overflows step, and does nothing
 
 			AfterSwitchHedgehog;
 			bBetweenTurns:= false
@@ -649,12 +649,18 @@
           for i:= 0 to cMaxHHIndex do
               with Hedgehogs[i] do
                   begin
-                  if (SpeechGear <> nil) then DeleteVisualGear(SpeechGear);  // remove to restore persisting beyond end of turn. Tiy says was too much of a gameplay issue
+                  if (SpeechGear <> nil) then
+                     begin
+                     DeleteVisualGear(SpeechGear);  // remove to restore persisting beyond end of turn. Tiy says was too much of a gameplay issue
+                     SpeechGear:= nil
+                     end;
+
                   if (Gear <> nil) then
                      if (GameFlags and gfInvulnerable) = 0 then
                         Gear^.Invulnerable:= false;
                   end;
 end;
+
 procedure ApplyDamage(Gear: PGear; Damage: Longword);
 var s: shortstring;
     vampDmg: Longword;