diff --git a/src/Perl6/Metamodel/Concretization.nqp b/src/Perl6/Metamodel/Concretization.nqp index ade901acbf9..a77e393c47d 100644 --- a/src/Perl6/Metamodel/Concretization.nqp +++ b/src/Perl6/Metamodel/Concretization.nqp @@ -25,8 +25,10 @@ role Perl6::Metamodel::Concretization { @conc := self.c3_merge(@conc) if $transitive; unless $local { for self.parents($obj, :local) { - for $_.HOW.concretizations($_, :$local, :$transitive) { - nqp::push(@conc, $_) + if nqp::can($_.HOW, 'concretizations') { + for $_.HOW.concretizations($_, :$local, :$transitive) { + nqp::push(@conc, $_) + } } } }