@verb #105:"rename_reference" this none this rxdo #55
@program #105:"rename_reference" this none this
caller_perms().wizard || raise(E_PERM)
if (!(x = this:has_property_with_Value(args[1])))
  return E_QUOTA
endif
set_property_info(this, x, {$slacker, "r", args[2][2..$]})
"Last modified by Lao-Tzu (#8084) on Thu May 31 11:22:14 2001 MDT."
.