From ccad901f3388522cceeb9583b63c8e2dfe267d48 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= <gregoire.henry@tezos.com>
Date: Thu, 10 May 2018 16:39:54 +0200
Subject: [PATCH] Shell: fix test network creation

---
 src/lib_shell/state.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/lib_shell/state.ml b/src/lib_shell/state.ml
index 34bbee60c..05bfbbaff 100644
--- a/src/lib_shell/state.ml
+++ b/src/lib_shell/state.ml
@@ -885,7 +885,10 @@ end
 let may_create_chain state chain genesis =
   Chain.get state chain >>= function
   | Ok chain -> Lwt.return chain
-  | Error _ -> Chain.create state genesis
+  | Error _ ->
+      Chain.create
+        ~allow_forked_chain:true
+        state genesis
 
 let read
     ?patch_context