@verb #1:"filerename file_rename" this none this rxdo #55
@program #1:"filerename file_rename" this none this
{file, dest} = args
if (!this:fileexists(file))
  raise(E_INVIND, "File not found")
elseif (this:fileexists(dest))
  raise(E_INVARG, "File already exists with that name")
elseif (!caller_perms():controls(this))
  raise(E_PERM)
elseif (dest in this.files_unwritable_by_owner && !caller_perms().wizard)
  raise(E_PERM)
else
  file_rename($file_utils:filespec(this, file), $file_utils:filespec(this, dest))
endif
"Last modified by Dax (#789) on Sat Sep 18 04:41:28 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Cecil (#7407) on Fri Mar 21 07:31:00 2003 MST."
.