--- a/hedgewars/hwengine.pas	Thu May 06 03:12:42 2010 +0000
+++ b/hedgewars/hwengine.pas	Thu May 06 09:25:13 2010 +0000
@@ -46,17 +46,17 @@
     uRandom in 'uRandom.pas',
     uAI in 'uAI.pas',
     uAIMisc in 'uAIMisc.pas',
-    uAIAmmoTests in 'uAIAmmoTests.pas',
-    uAIActions in 'uAIActions.pas',
+//  uAIAmmoTests in 'uAIAmmoTests.pas',
+//  uAIActions in 'uAIActions.pas',
     uCollisions in 'uCollisions.pas',
     uLand in 'uLand.pas',
-    uLandTemplates in 'uLandTemplates.pas',
-    uLandObjects in 'uLandObjects.pas',
-    uLandGraphics in 'uLandGraphics.pas',
+//  uLandTemplates in 'uLandTemplates.pas',
+//  uLandObjects in 'uLandObjects.pas',
+//  uLandGraphics in 'uLandGraphics.pas',
     uLocale in 'uLocale.pas',
     uAmmos in 'uAmmos.pas',
-    uSHA in 'uSHA.pas',
-    uFloat in 'uFloat.pas',
+//  uSHA in 'uSHA.pas',
+//  uFloat in 'uFloat.pas',
     uStats in 'uStats.pas',
     uChat in 'uChat.pas',
     uLandTexture in 'uLandTexture.pas',

--- a/hedgewars/uGears.pas	Thu May 06 03:12:42 2010 +0000
+++ b/hedgewars/uGears.pas	Thu May 06 09:25:13 2010 +0000
@@ -515,9 +515,10 @@
 
 // make sure that portals have their link removed before deletion
 if (Gear^.Kind = gtPortal) then
+    begin
     if (Gear^.IntersectGear <> nil) then
-        Gear^.IntersectGear^.IntersectGear:= nil
-
+        Gear^.IntersectGear^.IntersectGear:= nil;
+    end
 else if Gear^.Kind = gtHedgehog then
     if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then
         begin