@verb #53:"create" this none this rxdo #55
@program #53:"create" this none this
{newparent, ?newowner = caller_perms(), ?perms = caller_perms()} = args
for x in (this.spies)
  x:notify(tostr("[", this, "]: Creating object parented to ", newparent, " with owner ", newowner, " and perms ", perms, "."))
  x:notify(tostr("[", this, "]: Callers: ", toliteral(callers()), " and scheduler task stack: ", toliteral($scheduler:task_stack(task_id()))))
endfor
caller_perms():controls(perms) || raise(E_PERM)
newowner:isa($accountable) || raise(E_PERM)
what = this:what_trash(newparent)
r = valid(what) ? what | toobj(toint(max_object()) + 1)
return this:request(what, newparent, newowner, perms) && r
"Last modified by Dax (#789) on Tue May  3 14:11:54 2005 MDT."
.