--- a/hedgewars/uLandObjects.pas	Mon Feb 08 14:58:36 2016 +0300
+++ b/hedgewars/uLandObjects.pas	Tue Feb 09 14:40:06 2016 +0300
@@ -525,7 +525,7 @@
 ThemeObjects.Count:= 0;
 SprayObjects.Count:= 0;
 
-while not pfsEOF(f) do
+while (not pfsEOF(f)) and allOK do
     begin
     pfsReadLn(f, s);
     if Length(s) = 0 then