1.1 --- a/src/Tools/Code/code_eval.ML	Mon May 31 19:36:13 2010 +0200
     1.2 +++ b/src/Tools/Code/code_eval.ML	Mon May 31 21:06:57 2010 +0200
     1.3 @@ -173,7 +173,7 @@
     1.4        end
     1.5    | process (code_body, _) _ (SOME file_name) thy =
     1.6        let
     1.7 -        val preamble = "(* Generated from " ^ Path.implode (ThyLoad.thy_path (Context.theory_name thy))
     1.8 +        val preamble = "(* Generated from " ^ Path.implode (Thy_Load.thy_path (Context.theory_name thy))
     1.9            ^ "; DO NOT EDIT! *)";
    1.10          val _ = File.write (Path.explode file_name) (preamble ^ "\n\n" ^ code_body);
    1.11        in