Invoke method new on nominalized target

Provide coercion context via $*COERCION-TYPE dynamic variable.
rakudo · Nov 15, 2020 · 0edb1fc · 0edb1fc
1 parent 58576c2
commit 0edb1fc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/CoercionHOW.nqp b/src/Perl6/Metamodel/CoercionHOW.nqp
@@ -179,7 +179,8 @@ class Perl6::Metamodel::CoercionHOW
                 # then this is gonna result in an exception one way or another.
                 my $exception;
                 try {
-                    $coerced_value := $method($obj, $value);
+                    my $*COERCION-TYPE := $obj; # Provide context information to the method 'new'
+                    $coerced_value := $method($!nominal_target, $value);
                     CATCH {
                         my $exception_obj := nqp::getpayload($!);