diff -r 343905de27b1 -r b8ffc3dc9e24 src/HOL/Tools/record.ML
--- a/src/HOL/Tools/record.ML	Mon Apr 06 16:30:44 2015 +0200
+++ b/src/HOL/Tools/record.ML	Mon Apr 06 17:06:48 2015 +0200
@@ -2329,7 +2329,7 @@
 (* outer syntax *)
 
 val _ =
-  Outer_Syntax.command @{command_spec "record"} "define extensible record"
+  Outer_Syntax.command @{command_keyword record} "define extensible record"
     (Parse.type_args_constrained -- Parse.binding --
       (@{keyword "="} |-- Scan.option (Parse.typ --| @{keyword "+"}) --
         Scan.repeat1 Parse.const_binding)