src/Pure/theory.ML

--- a/src/Pure/theory.ML	Sat Nov 23 11:45:02 2019 +0100
+++ b/src/Pure/theory.ML	Sat Nov 23 14:48:44 2019 +0100
@@ -194,7 +194,7 @@
       thy
       |> init_markup (name, pos)
       |> Sign.local_path
-      |> Sign.map_naming (Name_Space.set_theory_name (Long_Name.base_name name))
+      |> Sign.theory_naming
       |> apply_wrappers wrappers
       |> tap (Syntax.force_syntax o Sign.syn_of)
     end;