diff -r 343905de27b1 -r b8ffc3dc9e24 src/HOL/Tools/Ctr_Sugar/case_translation.ML
--- a/src/HOL/Tools/Ctr_Sugar/case_translation.ML	Mon Apr 06 16:30:44 2015 +0200
+++ b/src/HOL/Tools/Ctr_Sugar/case_translation.ML	Mon Apr 06 17:06:48 2015 +0200
@@ -630,7 +630,7 @@
   end;
 
 val _ =
-  Outer_Syntax.command @{command_spec "print_case_translations"}
+  Outer_Syntax.command @{command_keyword print_case_translations}
     "print registered case combinators and constructors"
     (Scan.succeed (Toplevel.keep (print_case_translations o Toplevel.context_of)))