--- a/hedgewars/uRandom.pas	Sun Nov 13 22:13:58 2005 +0000
+++ b/hedgewars/uRandom.pas	Sun Dec 04 15:28:31 2005 +0000
@@ -66,9 +66,8 @@
 begin
 SHA1Update(sc1, @Fill[1], Length(Fill));
 sc2:= sc1;
-dig:= SHA1Final(sc1);
-Result:= (dig.LongWords[0] + dig.LongWords[2] + dig.LongWords[3]) mod m;
-sc1:= sc2
+dig:= SHA1Final(sc2);
+Result:= (dig.LongWords[0] + dig.LongWords[2] + dig.LongWords[3]) mod m
 end;
 
 end.