--- a/hedgewars/uRandom.pas	Tue Aug 21 21:46:05 2012 -0400
+++ b/hedgewars/uRandom.pas	Wed Aug 22 11:42:42 2012 -0400
@@ -65,7 +65,7 @@
 procedure SetRandomSeed(Seed: shortstring);
 var i: Longword;
 begin
-n:= 54;
+initModule;
 
 if Length(Seed) > 54 then
     Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf