diff -r b2f3bb44777e -r 1ca22b3493e9 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Tue May 04 00:44:32 2010 +0000
+++ b/hedgewars/uGears.pas	Tue May 04 02:34:23 2010 +0000
@@ -60,7 +60,8 @@
             uid: Longword;
             ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
             nImpactSounds: Word; // count of ImpactSounds
-            SoundChannel: LongInt
+            SoundChannel: LongInt;
+            PortedCounter: LongWord // TEMPORARY. To break portal loops pending handling it w/ something a bit saner.
         end;
 
 var AllInactive: boolean;
@@ -858,6 +859,7 @@
     tmpGear:= nil;
     while iterator <> nil do
         begin
+        iterator^.PortedCounter:= 0;
         if (iterator^.Kind = gtPortal) then 
             begin
             tmpGear:= iterator;