--- a/hedgewars/GSHandlers.inc	Thu Mar 24 17:28:36 2011 +0100
+++ b/hedgewars/GSHandlers.inc	Thu Mar 24 17:29:10 2011 +0100
@@ -3752,6 +3752,8 @@
             continue;
 
         //Will if fit through?
+        //set r to be portal distance
+        r := Int2hwFloat(Gear^.Radius +1);
 
         o_x := hwRound(conPortal^.X + conPortal^.dX);
         o_y := hwRound(conPortal^.Y + conPortal^.dY);
@@ -3801,6 +3803,9 @@
         if ((Land[o_y, rr_x] and $FF00) <> 0) then
                 continue;
 
+        //Okay reset r in case something uses it
+        r := Int2hwFloat(iterator^.Radius+Gear^.Radius);
+
         hasdxy := (((iterator^.dX.QWordValue <> 0) or (iterator^.dY.QWordValue <> 0))
                     or ((iterator^.State or gstMoving) = 0));