diff --git a/src/proto_alpha/lib_protocol/bootstrap_storage.ml b/src/proto_alpha/lib_protocol/bootstrap_storage.ml
index 62a38dae77119498cfab342203158908d4ebb0dc..1673e536938c7230f62e54f86f65de64d2b25a7b 100644
--- a/src/proto_alpha/lib_protocol/bootstrap_storage.ml
+++ b/src/proto_alpha/lib_protocol/bootstrap_storage.ml
@@ -45,7 +45,20 @@ let init_account (ctxt, balance_updates)
         ctxt
         contract
         (Some (Option.value ~default:public_key_hash delegate_to))
-  | None -> return ctxt)
+  | None ->
+      Option.iter
+        (fun delegate_to ->
+          Logging.(
+            log
+              Warning
+              "Attempt to delegate from an unrevealed key ignored: not \
+               delegating %a to %a"
+              Signature.Public_key_hash.pp
+              public_key_hash
+              Signature.Public_key_hash.pp
+              delegate_to))
+        delegate_to ;
+      return ctxt)
   >|=? fun ctxt -> (ctxt, new_balance_updates @ balance_updates)
 
 let init_contract ~typecheck (ctxt, balance_updates)