--- a/hedgewars/uLandGenTemplateBased.pas	Wed Mar 19 00:28:52 2014 +0400
+++ b/hedgewars/uLandGenTemplateBased.pas	Wed Mar 19 00:34:14 2014 +0400
@@ -276,8 +276,12 @@
 procedure Distort2(var Template: TEdgeTemplate; var pa: TPixAr);
 var i: Longword;
 begin
-    for i:= 1 to Template.BezierizeCount do
-        DivideEdges(pa);
+    //for i:= 1 to Template.BezierizeCount do
+    //    DivideEdges(pa);
+    repeat
+        i:= pa.Count;
+        DivideEdges(pa)
+    until i = pa.Count;
 
     {for i:= 1 to Template.BezierizeCount do
         begin