src/Pure/Isar/code.ML

--- a/src/Pure/Isar/code.ML	Thu May 01 09:30:34 2014 +0200
+++ b/src/Pure/Isar/code.ML	Thu May 01 09:30:35 2014 +0200
@@ -621,7 +621,7 @@
 fun mk_desymbolization pre post mk vs =
   let
     val names = map (pre o fst o fst) vs
-      |> map (Name.desymbolize false)
+      |> map (Name.desymbolize (SOME false))
       |> Name.variant_list []
       |> map post;
   in map_filter (fn (((v, i), x), v') =>