diff -r 7c72f4d556d1 -r 41ae3c48faa0 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Tue May 04 17:03:38 2010 +0000
+++ b/hedgewars/uGears.pas	Tue May 04 19:40:57 2010 +0000
@@ -60,8 +60,7 @@
             uid: Longword;
             ImpactSound: TSound; // first sound, others have to be after it in the sounds def.
             nImpactSounds: Word; // count of ImpactSounds
-            SoundChannel: LongInt;
-            PortedCounter: LongWord // TEMPORARY. To break portal loops pending handling it w/ something a bit saner.
+            SoundChannel: LongInt
         end;
 
 var AllInactive: boolean;
@@ -511,7 +510,11 @@
     Gear^.Tex:= nil
     end;
 
-if Gear^.Kind = gtHedgehog then
+// make sure that portals have their link removed before deletion
+if (Gear^.Kind = gtPortal) and (Gear^.IntersectGear <> nil) then
+    Gear^.IntersectGear^.IntersectGear:= nil
+
+else if Gear^.Kind = gtHedgehog then
     if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then
         begin
         Gear^.Message:= gm_Destroy;
@@ -859,7 +862,6 @@
     tmpGear:= nil;
     while iterator <> nil do
         begin
-        iterator^.PortedCounter:= 0;
         if (iterator^.Kind = gtPortal) then 
             begin
             tmpGear:= iterator;