--- a/hedgewars/uSound.pas	Mon Aug 22 10:54:53 2011 -0400
+++ b/hedgewars/uSound.pas	Mon Aug 22 10:56:19 2011 -0400
@@ -290,6 +290,7 @@
 procedure AddVoice(snd: TSound; voicepack: PVoicepack);
 var i : LongInt;
 begin
+    if (not isSoundEnabled) or fastUntilLag then exit;
     i:= 0;
     while (i<8) and (VoiceList[i].snd <> sndNone) do inc(i);