--- a/hedgewars/uWorld.pas	Sun Aug 06 15:47:20 2006 +0000
+++ b/hedgewars/uWorld.pas	Sun Aug 06 15:48:48 2006 +0000
@@ -60,11 +60,12 @@
 type TCaptionStr = record
                    Surf: PSDL_Surface;
                    StorePos: Longword;
+                   Group: TCapGroup;
                    EndTime: LongWord;
                    end;
 
 var cWaterSprCount: integer;
-    Captions: array[TCapGroup] of TCaptionStr;
+    Captions: array[0..Pred(cMaxCaptions)] of TCaptionStr;
 
 procedure InitWorld;
 begin