@verb #80:"find_ref*erence" this none this rxdo #789
@program #80:"find_ref*erence" this none this
"Return the web name of an object, or if there is none, return it's number."
{object} = args
if (!$tcm && !$command_utils:running_out_of_time())
  if (name = $find_ref(object))
    return name[2..$]
  endif
endif
return tostr(toint(object))
"Last modified by Dax (#789) on Tue May  3 14:11:54 2005 MDT."
.