190
@verb #101:"bf_verb_info" this none this rxdo #7407
@program #101:"bf_verb_info" this none this
set_task_perms(caller_perms())
{object, vname} = args
data = pass(@args)
if (caller_perms():controls(object) || caller_perms():isa($guardian) || object.r)
  return data
else
  raise(E_PERM, "Object is non-readable")
endif
"Last modified by Lao-Tzu (#8084) on Tue Dec 11 06:08:38 2001 MST."
.

0