diff --git a/src/plugins/server/request.ml b/src/plugins/server/request.ml
index 01fd23fe22225c248c14dad8b62b96be6102b73f..0ec63893fbafe9db0c0617944fd5165fbd6efa8a 100644
--- a/src/plugins/server/request.ml
+++ b/src/plugins/server/request.ml
@@ -51,10 +51,7 @@ type 'a output = (module Output with type t = 'a)
 (* --- Sanity Checks                                                      --- *)
 (* -------------------------------------------------------------------------- *)
 
-let re_set = Str.regexp_string_case_fold "SET"
-let re_get = Str.regexp_case_fold "\\(GET\\|PRINT\\)"
-let re_exec = Str.regexp_case_fold "\\(EXEC\\|COMPUTE\\)"
-let re_name = Str.regexp_case_fold "[a-zA-Z0-9.]+$"
+let re_name = Str.regexp_case_fold "[a-zA-Z0-9._]+$"
 
 let wpage = Senv.register_warn_category "inconsistent-page"
 let wkind = Senv.register_warn_category "inconsistent-kind"
@@ -84,15 +81,6 @@ let check_page page name =
     Senv.warning ~wkey:wkind
       "Request '%s' shall not be published in protocol pages" name
 
-let check_kind kind name =
-  let re,key = match kind with
-    | `GET -> re_get , "get|print"
-    | `SET -> re_set , "set"
-    | `EXEC -> re_exec , "exec|compute"
-  in try ignore (Str.search_forward re name 0) with Not_found ->
-    Senv.warning "Request '%s' shall be named with « %s »"
-      name key
-
 (* -------------------------------------------------------------------------- *)
 (* --- Multiple Fields Requests                                           --- *)
 (* -------------------------------------------------------------------------- *)
@@ -256,7 +244,6 @@ let signature
     ~page ~kind ~name ~descr ?(details=[]) ?input ?output () =
   check_name name ;
   check_page page name ;
-  check_kind kind name ;
   let input = match input with None -> Pnone | Some d -> Pdata d in
   let output = match output with None -> Rnone | Some d -> Rdata d in
   {
diff --git a/src/plugins/server/syntax.ml b/src/plugins/server/syntax.ml
index 41d2b8e45ff7f87c49d5a57afaeba5f623be4da6..f36e96261b9656876d2da94ac9ab8ace01f35f46 100644
--- a/src/plugins/server/syntax.ml
+++ b/src/plugins/server/syntax.ml
@@ -30,7 +30,7 @@ let check_plugin plugin name =
   let k = String.length plugin in
   if not (String.length name > k &&
           String.sub n 0 k = p &&
-          String.get n k = '.')
+          String.get n k = '-')
   then
     Senv.warning ~wkey:Senv.wpage
       "Data %S shall be named « %s-* »"