From c915b07c947c9f3d71c738bc65608e8cdecbdd12 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20Bartolom=C3=A4us?= <use_v6@aglaz.de>
Date: Sun, 9 Oct 2022 09:08:20 +0200
Subject: [PATCH] Fix argument for call to archetypes

This buglet sneaked in with 71de22321d where an optional positional
parameter for archetypes was introduced. Similar to other methods
of the metamodel API the first argument should be the object that
HOW was invoked upon.
---
 src/Perl6/Metamodel/CurriedRoleHOW.nqp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Perl6/Metamodel/CurriedRoleHOW.nqp b/src/Perl6/Metamodel/CurriedRoleHOW.nqp
index a3e5f1a3165..72161bd3284 100644
--- a/src/Perl6/Metamodel/CurriedRoleHOW.nqp
+++ b/src/Perl6/Metamodel/CurriedRoleHOW.nqp
@@ -164,7 +164,7 @@ class Perl6::Metamodel::CurriedRoleHOW
                 $_);
         }
         for %!named_args {
-            %new_named{$_.key} := $_.value.HOW.archetypes($_).generic ??
+            %new_named{$_.key} := $_.value.HOW.archetypes($_.value).generic ??
                 $_.value.HOW.instantiate_generic($_.value, $type_env) !!
                 $_.value;
         }