@verb #2:"_destructor" this none this rxdo #55
@program #2:"_destructor" this none this
"Begin generic security check (_destructor)"
if (verb == "_destructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_destructor)"
if (caller_perms() == #-1)
  if (`args[1].owner.owned_objects ! E_PROPNF')
    args[1].owner.owned_objects = setremove(args[1].owner.owned_objects, args[1])
  endif
  try
    $ref_db:remove_reference(args[1])
  except (E_PROPNF)
  endtry
endif
"Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."
.