Present.session_name;

--- a/src/Pure/Thy/thm_deps.ML	Sat Sep 08 19:58:37 2007 +0200
+++ b/src/Pure/Thy/thm_deps.ML	Sat Sep 08 19:58:38 2007 +0200
@@ -49,7 +49,7 @@
                   (x :: _) =>
                     (case ThyInfo.lookup_theory x of
                       SOME thy =>
-                        let val name = #name (Present.get_info thy)
+                        let val name = Present.session_name thy
                         in if name = "" then [] else [name] end
                     | NONE => [])
                  | _ => ["global"]);