--- a/hedgewars/uStore.pas	Wed May 30 20:48:57 2007 +0000
+++ b/hedgewars/uStore.pas	Sun Jun 03 17:21:57 2007 +0000
@@ -491,7 +491,7 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 var ProgrSurf: PSDL_Surface = nil;
-    Step: Longword = 0;
+    Step: integer = 0;
 
 procedure AddProgress;
 var r: TSDL_Rect;