--- a/hedgewars/uRandom.pas	Tue Aug 23 16:17:53 2005 +0000
+++ b/hedgewars/uRandom.pas	Thu Aug 25 16:45:58 2005 +0000
@@ -68,7 +68,7 @@
 SHA1Update(sc1, @Fill[1], Length(Fill));
 sc2:= sc1;
 dig:= SHA1Final(sc1);
-Result:= (((dig.LongWords[0] mod m) + (dig.LongWords[2] mod m)) mod m + (dig.LongWords[3] mod m)) mod m;
+Result:= (dig.LongWords[0] + dig.LongWords[2] + dig.LongWords[3]) mod m;
 sc1:= sc2
 end;