1.1 --- a/src/HOL/Orderings.thy	Mon May 17 15:11:25 2010 +0200
     1.2 +++ b/src/HOL/Orderings.thy	Mon May 17 23:54:15 2010 +0200
     1.3 @@ -422,8 +422,8 @@
     1.4  (** Diagnostic command **)
     1.5  
     1.6  val _ =
     1.7 -  OuterSyntax.improper_command "print_orders"
     1.8 -    "print order structures available to transitivity reasoner" OuterKeyword.diag
     1.9 +  Outer_Syntax.improper_command "print_orders"
    1.10 +    "print order structures available to transitivity reasoner" Keyword.diag
    1.11      (Scan.succeed (Toplevel.no_timing o Toplevel.unknown_context o
    1.12          Toplevel.keep (print_structures o Toplevel.context_of)));
    1.13