diff --git a/src/proto_alpha/lib_client/client_proto_args.ml b/src/proto_alpha/lib_client/client_proto_args.ml
index 9a12444ef..d5eb1d44b 100644
--- a/src/proto_alpha/lib_client/client_proto_args.ml
+++ b/src/proto_alpha/lib_client/client_proto_args.ml
@@ -37,7 +37,7 @@ let () =
     ~title:"Bad -max-priority arg"
     ~description:("invalid priority in -max-priority")
     ~pp:(fun ppf literal ->
-        Format.fprintf ppf "invalid priority '%s'in -max-priority" literal)
+        Format.fprintf ppf "invalid priority '%s' in -max-priority" literal)
     Data_encoding.(obj1 (req "parameter" string))
     (function Bad_max_priority parameter -> Some parameter | _ -> None)
     (fun parameter -> Bad_max_priority parameter) ;
diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml
index 39c8c2dec..1c1b0247f 100644
--- a/src/proto_alpha/lib_delegate/client_baking_forge.ml
+++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml
@@ -732,7 +732,7 @@ let bake (cctxt : #Proto_alpha.full) ?threshold state =
           return ()
     end
 
-  | _ ->
+  | _ -> (* no candidates, or none fit-enough *)
       lwt_debug "No valid candidates." >>= fun () ->
       return ()
 
@@ -792,7 +792,7 @@ let create
                  ] >>= function
         (* event matching *)
       | `Hash (None | Some (Error _)) ->
-          (* return to restart *)
+          (* exit when the node is unavailable *)
           last_get_block := None ;
           lwt_log_error "Connection to node lost, exiting." >>= fun () ->
           exit 1