@verb #2000:"explode" this none this rxdo #7951
@program #2000:"explode" this none this
if (!(caller = this))
  raise(E_PERM)
endif
.