--- a/hedgewars/uSound.pas	Fri Mar 25 20:02:27 2011 -0400
+++ b/hedgewars/uSound.pas	Sat Mar 26 22:49:38 2011 +0100
@@ -229,6 +229,7 @@
 
 function LoopSound(snd: TSound; voicepack: PVoicepack): LongInt;
 begin
+    voicepack:= voicepack;    // avoid compiler hint
     LoopSound:= LoopSound(snd, nil, 0)
 end;