diff --git a/src/proto_alpha/lib_protocol/src/alpha_context.mli b/src/proto_alpha/lib_protocol/src/alpha_context.mli
index 11f0c919b..0d3ccc437 100644
--- a/src/proto_alpha/lib_protocol/src/alpha_context.mli
+++ b/src/proto_alpha/lib_protocol/src/alpha_context.mli
@@ -547,8 +547,7 @@ module Contract : sig
   type big_map_diff = (Script_expr_hash.t * Script.expr option) list
 
   val originate:
-    context ->
-    contract ->
+    context -> contract ->
     balance: Tez.t ->
     manager: public_key_hash ->
     ?script: (Script.t * big_map_diff option) ->
diff --git a/src/proto_alpha/lib_protocol/src/contract_storage.ml b/src/proto_alpha/lib_protocol/src/contract_storage.ml
index 9bbd53b98..918739a71 100644
--- a/src/proto_alpha/lib_protocol/src/contract_storage.ml
+++ b/src/proto_alpha/lib_protocol/src/contract_storage.ml
@@ -250,9 +250,8 @@ let originate c ?prepaid_bootstrap_storage contract
   create_base c ?prepaid_bootstrap_storage contract ~balance ~manager
     ~delegate ?script ~spendable ~delegatable
 
-let create_implicit c manager ~balance : Raw_context.t tzresult Lwt.t =
-  create_base c
-    (Contract_repr.implicit_contract manager)
+let create_implicit c manager ~balance =
+  create_base c (Contract_repr.implicit_contract manager)
     ~balance ~manager ?script:None ~delegate:None
     ~spendable:true ~delegatable:false