--- a/hedgewars/uLandObjects.pas	Sat May 15 09:21:25 2010 +0000
+++ b/hedgewars/uLandObjects.pas	Sun May 16 17:23:30 2010 +0000
@@ -518,18 +518,19 @@
 
 procedure LoadThemeConfig;
 begin
-ReadThemeInfo(ThemeObjects, SprayObjects)
+    ReadThemeInfo(ThemeObjects, SprayObjects)
 end;
 
 procedure FreeLandObjects();
 var i: Longword;
 begin
-for i:= 0 to Pred(MAXTHEMEOBJECTS) do
-    if ThemeObjects.objs[i].Surf <> nil then
-        SDL_FreeSurface(ThemeObjects.objs[i].Surf);
-for i:= 0 to Pred(MAXTHEMEOBJECTS) do
-    if SprayObjects.objs[i].Surf <> nil then
-        SDL_FreeSurface(SprayObjects.objs[i].Surf);
+    for i:= 0 to Pred(MAXTHEMEOBJECTS) do
+    begin
+        if ThemeObjects.objs[i].Surf <> nil then
+            SDL_FreeSurface(ThemeObjects.objs[i].Surf);
+        if SprayObjects.objs[i].Surf <> nil then
+            SDL_FreeSurface(SprayObjects.objs[i].Surf);
+    end;
 end;
 
 end.