src/Pure/Thy/thm_deps.ML

         let val thm_id = Proofterm.thm_id (i, thm_node) in
           (case lookup thm_id of
             SOME thm_name => Inttab.update (i, (thm_id, thm_name)) res
           | NONE => fold deps (Proofterm.thm_node_thms thm_node) res)
         end;
-  in fn thm => fold deps (Thm.thm_deps thm) Inttab.empty |> Inttab.dest |> map #2 end;
+  in
+    fn thm =>
+      fold deps (Thm.thm_deps (Thm.transfer thy thm)) Inttab.empty
+      |> Inttab.dest |> map #2
+  end;
 
 
 (* thm_deps_cmd *)
 
 fun thm_deps_cmd thy thms =