1.1 --- a/src/HOL/SPARK/Tools/spark_vcs.ML	Sun Feb 26 21:44:12 2012 +0100
     1.2 +++ b/src/HOL/SPARK/Tools/spark_vcs.ML	Mon Feb 27 10:32:39 2012 +0100
     1.3 @@ -1027,7 +1027,8 @@
     1.4          Symtab.update ("false", (@{term False}, booleanN)) |>
     1.5          Symtab.update ("true", (@{term True}, booleanN)),
     1.6          Name.context),
     1.7 -       thy |> Sign.add_path (Long_Name.base_name ident)) |>
     1.8 +       thy |> Sign.add_path
     1.9 +         (if prfx = "" then Long_Name.base_name ident else prfx)) |>
    1.10        fold (add_type_def prfx) (items types) |>
    1.11        fold (snd oo add_const prfx) consts' |> (fn ids_thy as ((tab, _), _) =>
    1.12          ids_thy |>