diff --git a/ocaml/qptypes_generator.ml b/ocaml/qptypes_generator.ml
index e1c14ee6..600debf4 100644
--- a/ocaml/qptypes_generator.ml
+++ b/ocaml/qptypes_generator.ml
@@ -4,7 +4,7 @@ let global_replace x =
   |> Str.global_replace (Str.regexp "Float.of_string") "float_of_string"
   |> Str.global_replace (Str.regexp "Int.to_string") "string_of_int"
   |> Str.global_replace (Str.regexp "Int.of_string") "int_of_string"
-  |> Str.global_replace (Str.regexp "String.\(to\|of\)_string") ""
+  |> Str.global_replace (Str.regexp "String.\\(to\\|of\\)_string") ""
 
 let input_data = "
 * Positive_float : float  
@@ -184,7 +184,7 @@ end = struct
   | HCore  -> \"HCore\"
 
   let of_string  s = 
-    match (String.lowercase s) with
+    match (String.lowercase_ascii s) with
     | \"huckel\" -> Huckel
     | \"hcore\"  -> HCore
     | _ -> raise (Invalid_argument (\"Wrong Guess type : \"^s))
@@ -207,7 +207,7 @@ end = struct
   | Write  -> \"Write\"
   | None   -> \"None\"
   let of_string  s = 
-    match (String.lowercase s) with
+    match (String.lowercase_ascii s) with
     | \"read\"  -> Read
     | \"write\" -> Write
     | \"none\"  -> None
diff --git a/src/MOGuess/H_CORE_guess.irp.f b/src/MOGuess/H_CORE_guess.irp.f
index d771feec..11fef327 100644
--- a/src/MOGuess/H_CORE_guess.irp.f
+++ b/src/MOGuess/H_CORE_guess.irp.f
@@ -1,9 +1,9 @@
-program H_CORE_guess
+program H_CORE_guess_prog
   BEGIN_DOC
 ! Produce `H_core` MO orbital 
 ! output:  mo_basis.mo_tot_num mo_basis.mo_label mo_basis.ao_md5 mo_basis.mo_coef mo_basis.mo_occ
   END_DOC
   implicit none
   character*(64)                 :: label
-  call h_core_guess 
+  call hcore_guess 
 end