Ensure Random.self_init() is called.

[mclu.git] / mclu.ml

diff --git a/mclu.ml b/mclu.ml
index a6e6e1d..b4bbf94 100644 (file)
--- a/mclu.ml
+++ b/mclu.ml
@@ -20,6 +20,8 @@ open Utils
 
 open Printf
 
+let () = Random.self_init ()
+
 let config_file =
   let default =
     try Sys.getenv "MCLU_CONFIG"