--- a/hedgewars/uLandObjects.pas	Thu Dec 24 13:38:20 2009 +0000
+++ b/hedgewars/uLandObjects.pas	Sun Jan 03 15:40:41 2010 +0000
@@ -364,6 +364,9 @@
 	end;
 
 begin
+
+AddProgress;
+
 s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;
 WriteLnToConsole('Reading objects info...');
 Assign(f, s);
@@ -442,7 +445,8 @@
 
 Close(f);
 {$I+}
-TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true)
+TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true);
+AddProgress;
 end;
 
 procedure AddThemeObjects(var ThemeObjects: TThemeObjects; MaxCount: LongInt);