--- a/hedgewars/uLandObjects.pas	Wed May 02 11:28:38 2012 +0200
+++ b/hedgewars/uLandObjects.pas	Wed May 02 10:53:13 2012 +0100
@@ -301,11 +301,12 @@
     cnt, i: Longword;
     bRes: boolean;
 begin
+TryPut:= false;
 cnt:= 0;
 with Obj do
     begin
     if Maxcnt = 0 then
-        exit(false);
+        exit;
     x:= 0;
     repeat
         y:= topY+32; // leave room for a hedgie to teleport in
@@ -346,11 +347,12 @@
     r: TSDL_Rect;
     bRes: boolean;
 begin
+TryPut:= false;
 cnt:= 0;
 with Obj do
     begin
     if Maxcnt = 0 then
-        exit(false);
+        exit;
     x:= 0;
     r.x:= 0;
     r.y:= 0;