words-like: func [
    "Returns a block of words in the object that match the given pattern."
    object  [object!]
    pattern [word! any-string!]
    ;??? Add an /unbound refinement
][
    pattern: join form pattern "*"
    collect w [
        foreach word next first object [
            if find/match/any form word pattern [w: bind word in object 'self]
        ]
    ]
]