alias Object {
  var %x 1,%y $hget(Objects,$1.INIT),%a ,,
  while ($token(%y,%x,32)) {
    var %z $v1
    if ($isalias(%z $+ . $+ $prop $+ .Public)) {
      return $(,$ $+ %z $+ $chr(40) $+ $1 %a $2 %a $3 %a $4 %a $5 %a $6 %a $7 %a $8 %a $9 %a $+ $chr(41) $+ . $+ $prop)
    }
    inc %x
  }
  return $catch($1,MemberErr,$prop is not a public member of $isinstance($1))
}