diff --git a/ocaml/Random_variable.ml b/ocaml/Random_variable.ml
index b19796c..0e9fafb 100644
--- a/ocaml/Random_variable.ml
+++ b/ocaml/Random_variable.ml
@@ -94,6 +94,12 @@ let of_raw_data ?(locked=true) ~range property =
     let data = 
          Block.raw_data ~locked ()
          |> List.filter (fun x -> x.Block.property = property)
+         |> List.sort (fun x y ->
+              let x = Block_id.to_int x.Block.block_id in
+              let y = Block_id.to_int y.Block.block_id in
+              if (x>y) then 1
+              else if (x<y) then -1
+              else 0)
     in
 
     let data_in_range rmin rmax =