--- a/hedgewars/uLand.pas	Sat Jul 08 21:40:03 2006 +0000
+++ b/hedgewars/uLand.pas	Tue Jul 11 21:04:05 2006 +0000
@@ -203,6 +203,7 @@
 
     procedure Push(_xl, _xr, _y, _dir: integer);
     begin
+    TryDo(Stack.Count <= 8192, 'FillLand: stack overflow', true);
     _y:= _y + _dir;
     if (_y < 0) or (_y > 1023) then exit;
     with Stack.points[Stack.Count] do
@@ -212,8 +213,7 @@
          y:= _y;
          dir:= _dir
          end;
-    inc(Stack.Count);
-    TryDo(Stack.Count < 8192, 'stack overflow', true)
+    inc(Stack.Count)
     end;
 
     procedure Pop(out _xl, _xr, _y, _dir: integer);