@@ -171,6 +171,7 @@ let extend_remoting ctx c t p async prot =
| _ -> d
) decls in
let m = Typeload.type_module ctx (t.tpackage,new_name) file decls p in
+ add_dependency ctx.current m;
try
List.find (fun tdecl -> snd (t_path tdecl) = new_name) m.m_types
with Not_found ->