Query journal blocks that reference a page

I tried getting also the aliases, based on:

My query is now this:

#+BEGIN_QUERY
{:title [:h2 "Diario de clases con alias"]
    :query [:find (pull ?b [*])
            :in $ ?current
            :where
            [?b :block/page ?p]
            [?p :page/journal? true]
            [?b :block/refs ?r]
            [?r :block/name ?current]
            (or-join [?b ?r] ; needed because ?a might not unify
              [?b :block/refs ?r]
              (and [?r :block/alias ?a] [?b :block/refs ?a])
            )
    ]
    :inputs [:query-page]
    :collapsed? false}
#+END_QUERY

But it doesn’t return the blocks that use the aliased version