1.1 --- a/src/Pure/Tools/find_consts.ML	Mon Apr 06 16:30:44 2015 +0200
     1.2 +++ b/src/Pure/Tools/find_consts.ML	Mon Apr 06 17:06:48 2015 +0200
     1.3 @@ -151,7 +151,7 @@
     1.4    |> #1;
     1.5  
     1.6  val _ =
     1.7 -  Outer_Syntax.command @{command_spec "find_consts"}
     1.8 +  Outer_Syntax.command @{command_keyword find_consts}
     1.9      "find constants by name / type patterns"
    1.10      (query >> (fn spec =>
    1.11        Toplevel.keep (fn st =>