1.1 --- a/src/HOL/Tools/enriched_type.ML	Thu Mar 15 19:48:19 2012 +0100
     1.2 +++ b/src/HOL/Tools/enriched_type.ML	Thu Mar 15 20:07:00 2012 +0100
     1.3 @@ -268,7 +268,7 @@
     1.4  
     1.5  val _ = Outer_Syntax.local_theory_to_proof "enriched_type"
     1.6    "register operations managing the functorial structure of a type"
     1.7 -  Keyword.thy_goal (Scan.option (Parse.name --| Parse.$$$ ":") -- Parse.term
     1.8 +  Keyword.thy_goal (Scan.option (Parse.name --| @{keyword ":"}) -- Parse.term
     1.9      >> (fn (prfx, t) => enriched_type_cmd prfx t));
    1.10  
    1.11  end;