[ XTestMove obj dest; if ((obj<=InformLibrary) || (obj == LibraryMessages) || (obj in 1)) "[Can't move ", (name) obj, ": it's a system object.]"; while (dest ~= 0) { if (dest == obj) "[Can't move ", (name) obj, ": it would contain itself.]"; dest = parent(dest); } rfalse; ];