--- a/hedgewars/uLand.pas	Tue Jul 07 15:24:43 2009 +0000
+++ b/hedgewars/uLand.pas	Tue Jul 07 21:48:55 2009 +0000
@@ -606,7 +606,6 @@
 
 AddProgress;
 
-AddProgress
 end;
 
 procedure MakeFortsMap;