diff -r f0fab367453a -r 68c894c513f6 Nominal/nominal_function.ML
--- a/Nominal/nominal_function.ML	Fri Aug 19 12:49:38 2011 +0900
+++ b/Nominal/nominal_function.ML	Sun Aug 28 14:50:13 2011 +0100
@@ -256,7 +256,7 @@
 (* outer syntax *)
 
 local
-  val option_parser = Parse.group "option"
+  val option_parser = Parse.group (fn () => "option")
     ((Parse.reserved "sequential" >> K Sequential)
      || ((Parse.reserved "default" |-- Parse.term) >> Default)
      || (Parse.reserved "domintros" >> K DomIntros)