--- a/src/Pure/Isar/outer_syntax.ML	Sat Aug 13 20:41:29 2011 +0200
+++ b/src/Pure/Isar/outer_syntax.ML	Sat Aug 13 20:49:41 2011 +0200
@@ -224,7 +224,7 @@
 fun process_file path thy =
   let
     val trs = parse (Path.position path) (File.read path);
-    val init = Toplevel.init_theory "" (K thy) Toplevel.empty;
+    val init = Toplevel.init_theory (K thy) Toplevel.empty;
     val result = fold Toplevel.command (init :: trs) Toplevel.toplevel;
   in
     (case (Toplevel.is_theory result, Toplevel.generic_theory_of result) of