diff --git a/petanque/json_shell/server.ml b/petanque/json_shell/server.ml
index 4f975647..1e536945 100644
--- a/petanque/json_shell/server.ml
+++ b/petanque/json_shell/server.ml
@@ -26,9 +26,7 @@ let rec handle_connection ~token ic oc () =
       match Interp.interp ~token request with
       | None -> handle_connection ~token ic oc ()
       | Some reply ->
-        let* () =
-          Logs_lwt.info (fun m -> m "Reply: %s" (Yojson.Safe.to_string reply))
-        in
+        let* () = Logs_lwt.info (fun m -> m "Sent reply") in
         let* () = Lwt_io.fprintl oc (Yojson.Safe.to_string reply) in
         handle_connection ~token ic oc ())
   with End_of_file -> return ()