@verb #70:"file_page" this none this rxdo #60
@program #70:"file_page" this none this
{object, fname} = args
try
  index(object:fileaccess(fname), "r") || raise(E_PERM)
  data = object:fileread(fname)
except v (ANY)
  return {tostr("Reading ", object, "!", fname, " --> ", v[1]), "."}
endtry
typeof(data) == $LIST || raise(E_INVARG, "This error can't happen!")
return {@data, "."}
"Last modified by Dax (#789) on Tue May  3 13:55:53 2005 MDT."
.