dt_Handle atoms, atom, otheratom;
atoms = dt_stream(ob, TYP_ATOM);
while (NULL_OB != (atom = dt_next(atoms)))
dt_sethandle(atom, 9, "otheratom", atom);
dt_dealloc(atoms);
newob = dt_copy(ob);
atoms = dt_stream(newob, TYP_ATOM);
while (NULL_OB != (atom = dt_next(atoms)))
{
origatom = dt_handle(atom, 9, "otheratom");
dt_sethandle(origatom, 9, "otheratom", atom);
}
dt_dealloc(atoms);
dt_setstring(ob, nlen, name, 0, NULL);