26a
@verb #2:"_constructor" this none this rxdo #55
@program #2:"_constructor" this none this
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_constructor)"
typeof(args[1]) == $OBJ || raise(E_TYPE)
args[1].aliases = {}
`args[1].owner.owned_objects = setadd(args[1].owner.owned_objects, args[1]) ! ANY'
args[1].best_before = time() + args[1].initial_expiry_time
args[1].r = 1
args[1].subsidised = 0
args[1].www_counter = 0
"Last modified by Dax (#789) on Tue May  3 13:49:38 2005 MDT."
.

0