@verb #1208:"log" this none this rxdo #833
@program #1208:"log" this none this
$perm_utils:can_hack() || raise(E_PERM)
{object, dest, orderer} = args
"source = object.location"
"this.log = {@this.log, {object, source, dest, orderer, callers()}}"
this.users = setadd(this.users, orderer)
if (orderer != object)
  this.powerusers = setadd(this.powerusers, orderer)
endif
this.odometer = this.odometer + 1
.