--- a/hedgewars/uLand.pas	Sun May 13 18:50:04 2012 -0400
+++ b/hedgewars/uLand.pas	Mon May 14 22:47:56 2012 +0400
@@ -26,7 +26,7 @@
 procedure freeModule;
 procedure DrawBottomBorder;
 procedure GenMap;
-procedure GenPreview(var Preview: TPreview);
+procedure GenPreview(out Preview: TPreview);
 
 implementation
 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils,
@@ -677,7 +677,7 @@
 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT);
 end;
 
-procedure GenPreview(var Preview: TPreview);
+procedure GenPreview(out Preview: TPreview);
 var x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;
 begin
     WriteLnToConsole('Generating preview...');