--- a/hedgewars/hwengine.dpr	Sat Jul 21 12:29:09 2007 +0000
+++ b/hedgewars/hwengine.dpr	Sat Jul 21 15:45:41 2007 +0000
@@ -268,6 +268,7 @@
 
 /////////////////////////
 procedure GenLandPreview;
+var Preview: TPreview;
 begin
 InitIPC;
 IPCWaitPongEvent;
@@ -275,7 +276,7 @@
       'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')',
       true);
 
-GenPreview;
+Preview:= GenPreview;
 WriteLnToConsole('Sending preview...');
 SendIPCRaw(@Preview, sizeof(Preview));
 WriteLnToConsole('Preview sent, disconnect');