--- a/hedgewars/uVideoRec.pas	Mon Oct 14 23:57:31 2013 +0400
+++ b/hedgewars/uVideoRec.pas	Tue Oct 15 01:15:39 2013 +0200
@@ -367,6 +367,10 @@
 
 procedure initModule;
 begin
+    // we need to make sure these variables are initialized before the main loop
+    // or the wrapper will keep the default values of preinit
+    cScreenWidth:= min(cWindowedWidth, 640);
+    cScreenHeight:= min(cWindowedHeight, 480);
 end;
 
 procedure freeModule;