summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--tools/callgen.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/tools/callgen.ml b/tools/callgen.ml
index 4679865..d53eabb 100644
--- a/tools/callgen.ml
+++ b/tools/callgen.ml
@@ -65,6 +65,7 @@ module Gen = struct
     | None ->
       let f = open_in "/dev/urandom" in
       let seed =
+        Char.code (input_char f) lsl 16 +
         Char.code (input_char f) lsl 8 +
         Char.code (input_char f) in
       close_in f;