@verb #8084:"_destroy_catch" this none this rxdo #8084
@program #8084:"_destroy_catch" this none this
caller_perms().wizard || raise(E_PERM)
{x, verb} = args
if (!({x, verb} in this.ok))
  if (verb_info(x, verb)[1].wizard)
    lmb = `verb_code(x, verb)[$] ! E_RANGE'
    if (lmb != E_RANGE && (lmb[1] != "\"" || match(lmb, "%([iI]mp%|[sS]lacker%|[sS]oap%|[rR]aptor%)")))
      for vc in (verb_code(x, verb))
        if (match(vc, "eval(%|set_verb_info(%|set_verb_code(%|set_property_info(%|%.(.*)%|%.wizard *= *"))
          return 1
        endif
        $cmd_utils:suspend_if_needed(0)
      endfor
    endif
  endif
endif
"Last modified by Lao-Tzu (#8084) on Fri Dec 10 06:55:34 1999 MST."
.