diff -r ef52dae4130b -r 2e98698b76aa hedgewars/uKeys.pas
--- a/hedgewars/uKeys.pas	Fri Jul 03 22:02:13 2009 +0000
+++ b/hedgewars/uKeys.pas	Fri Jul 03 23:45:07 2009 +0000
@@ -35,7 +35,7 @@
 var KbdKeyPressed: boolean;
 
 implementation
-uses SDLh, uTeams, uConsole, uMisc;
+uses SDLh, uTeams, uConsole, uMisc, uStore;
 const KeyNumber = 1024;
 type TKeyboardState = array[0..cKeyMaxIndex] of Byte;
 
@@ -110,8 +110,9 @@
 TryDo(i < cKeyMaxIndex, 'SDL keys number is more than expected (' + inttostr(i) + ')', true);
 
 for t:= 0 to Pred(i) do
-    tkbd[i]:= pkbd^[i]
-
+    tkbd[i]:= pkbd^[i];
+	
+	AddProgress;
 end;
 
 procedure InitKbdKeyTable;