diff --git a/ocaml/qp_create_guess.ml b/ocaml/qp_create_guess.ml
index 62af57de..bebfdad3 100644
--- a/ocaml/qp_create_guess.ml
+++ b/ocaml/qp_create_guess.ml
@@ -88,8 +88,9 @@ let run ~multiplicity ezfio_file =
       ~alpha:(Elec_alpha_number.of_int alpha_new)
       ~beta:(Elec_beta_number.of_int beta_new) pair )
   in
+
   let c = 
-    Array.create ~len:(List.length determinants) (Det_coef.of_float 1.)
+    Array.init (List.length determinants) (fun _ -> Det_coef.of_float ((Random.float 2.)-.1.))
   in
  
   determinants