--- a/hedgewars/uGears.pas	Sat May 01 17:29:48 2010 +0000
+++ b/hedgewars/uGears.pas	Sat May 01 18:44:25 2010 +0000
@@ -183,7 +183,7 @@
             @doStepBirdy,
             @doStepBigExplosion,
             @doStepEggWork,
-            @doStepPortal,
+            @doStepMovingPortal,
             @doStepPiano,
             @doStepBomb,
             @doStepSineGunShot
@@ -478,6 +478,7 @@
                 gear^.nImpactSounds:= 1;
                 gear^.AdvBounce:= 0;
                 gear^.Radius:= 16;
+                gear^.Tag:= 0;
                 end;
        gtPiano: begin
                 gear^.Radius:= 32