@verb #186:"_disfunc" this none this rxdo #789
@program #186:"_disfunc" this none this
"Fail the test and return the victim to builder status."
if (valid(caller_perms()) && caller != this && caller != #0)
  return E_PERM
endif
for object in (this.owned_objects)
  if (object:isa(#6481) || object:isa(#3067) || object:isa(#6782))
    object:do_burn()
  endif
  $command_utils:suspend_if_needed()
endfor
return pass(@args)
"Last modified by Slacker (#55) on Mon Jan  3 10:26:06 2000 MST."
.