--- a/hedgewars/uLandObjects.pas	Mon Mar 01 19:20:43 2010 +0000
+++ b/hedgewars/uLandObjects.pas	Mon Mar 01 19:54:33 2010 +0000
@@ -349,7 +349,7 @@
 end;
 
 procedure ReadThemeInfo(var ThemeObjects: TThemeObjects; var SprayObjects: TSprayObjects);
-var s: string;
+var s: shortstring;
     f: textfile;
     i, ii: LongInt;
     vobcount: Longword;