--- a/hedgewars/VGSHandlers.inc	Thu Apr 28 00:16:36 2011 +0200
+++ b/hedgewars/VGSHandlers.inc	Thu Apr 28 01:01:07 2011 +0200
@@ -486,7 +486,7 @@
 
 Gear^.Hedgehog^.SpeechGear:= Gear;
 
-Gear^.Timer:= max(Length(Gear^.Text) * 150, 3000);
+Gear^.Timer:= max(LongInt(Length(Gear^.Text)) * 150, 3000);
 
 Gear^.Tex:= RenderSpeechBubbleTex(Gear^.Text, Gear^.FrameTicks, fnt16);