@verb #0:"find_reference_in_ancestry" this none this rxdo #55
@program #0:"find_reference_in_ancestry" this none this
{object} = args
while (valid(object))
  if (foo = this:find_ref(object))
    return foo
  endif
  object = parent(object)
  "Must suspend. Sleep now, tired."
  $cmd_utils:suspend_if_needed()
endwhile
return $find_ref(object)
"Last modified by Dax (#789) on Sun Jul 28 05:02:42 2002 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:03 2002 MDT)."
"Last modified by Dax (#789) on Tue May  3 13:18:36 2005 MDT."
.