Fix in ocaml interface from Matti Jokinen.

ocamliface/mlstub.ml

@@ -32,7 +32,7 @@ let id s =
       let j = String.index_from s i '.' in
       <:ident< $uid:String.sub s i (j - i)$.$aux (j+1)$ >>
     with Not_found ->
-      <:ident< $lid:String.sub s i (String.length s - i)$ >>
+      <:ident< $uid:String.sub s i (String.length s - i)$ >>
   in
 (*  Printf.eprintf "*** %S\n" s; *)
   aux 0