let ch = open_out (ng_path_of_baseuri baseuri) in
Marshal.to_channel ch (magic,(status#dump.dependencies,status#dump.objs)) [];
close_out ch;
+(*
remove_objects ~baseuri; (* FG: we remove the old objects before putting the new ones*)
+*)
List.iter
(function
| `Obj (uri,obj) ->