--- a/hedgewars/uSound.pas	Fri Jul 03 22:02:13 2009 +0000
+++ b/hedgewars/uSound.pas	Fri Jul 03 23:45:07 2009 +0000
@@ -74,7 +74,7 @@
 
 implementation
 
-uses uMisc, uConsole;
+uses uMisc, uConsole, uStore;
 
 const chanTPU = 12;
 var	lastChan: array [TSound] of LongInt;
@@ -148,6 +148,8 @@
 				else
 					WriteLnToConsole(msgOK)
 				end;
+				
+AddProgress;
 end;
 
 procedure PlaySound(snd: TSound; infinite: boolean; voicepack: PVoicepack);