--- a/src/HOL/Tools/Lifting/lifting_setup.ML Tue Aug 12 18:54:53 2014 +0200
+++ b/src/HOL/Tools/Lifting/lifting_setup.ML Tue Aug 12 20:18:27 2014 +0200
@@ -221,7 +221,7 @@
val thy = Proof_Context.theory_of lthy
val dummy_thm = Thm.transfer thy Drule.dummy_thm
- val pointer = Outer_Syntax.scan Position.none bundle_name
+ val pointer = Outer_Syntax.scan (Keyword.get_lexicons ()) Position.none bundle_name
val restore_lifting_att =
([dummy_thm], [Args.src ("Lifting.lifting_restore_internal", Position.none) pointer])
in