diff --git a/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml
index 1f12d3a964e87cf04e465c71c27b0ed2ee75b5c5..e672752018aaced7d45f151fed2995ee6272f55e 100644
--- a/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml
+++ b/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml
@@ -1053,7 +1053,7 @@ let commands () =
       ~group
       ~desc:"Compute the event address associated with a tag and a data type."
       no_options
-      (prefixes ["get"; "event"; "address"]
+      (prefixes ["get"; "event"; "address"; "for"; "type"]
       @@ param ~name:"type" ~desc:"the type of the event data" data_parameter
       @@ stop)
       (fun () ty cctxt ->