--- a/hedgewars/uRandom.pas	Thu Jan 11 23:29:57 2007 +0000
+++ b/hedgewars/uRandom.pas	Fri Jan 12 15:23:16 2007 +0000
@@ -46,8 +46,8 @@
 
 if Length(Seed) > 54 then Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf
 
-for i:= 0 to pred(Length(Seed)) do
-    cirbuf[i]:= byte(Seed[i + 1]) * (i + 1);
+for i:= 1 to Length(Seed) do
+    cirbuf[i - 1]:= byte(Seed[i]) * i;
 
 for i:= Length(Seed) to 54 do
     cirbuf[i]:= i * 7 + 1;