{"body":"diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp\nindex fe4fc71d4..51120fe62 100644\n--- a/src/Perl6/Actions.nqp\n+++ b/src/Perl6/Actions.nqp\n@@ -5274,6 +5274,10 @@ class Perl6::Actions is HLL::Actions does STDActions {\n \n         # Create the meta-object.\n         my $subset;\n+        my $how := nqp::can($refinee.HOW, \"SubsetHOW\")\n+            ?? $refinee.HOW.SubsetHOW($refinee)\n+            !! $world.resolve_mo($/, 'subset')\n+        ;\n         my $longname := $<longname> && $world.dissect_longname($<longname>);\n         my @name := $longname ?? $longname.type_name_parts('subset name', :decl(1)) !! [];\n         if @name {\n@@ -5281,13 +5285,13 @@ class Perl6::Actions is HLL::Actions does STDActions {\n                 ?? $*GLOBALish\n                 !! $/.package;\n             my $fullname := $longname.fully_qualified_with($target_package);\n-            $subset := $world.create_subset($world.resolve_mo($/, 'subset'), $refinee, $refinement,\n+            $subset := $world.create_subset($how, $refinee, $refinement,\n                 :name($fullname));\n             $world.install_package($/, @name, ($*SCOPE || 'our'), 'subset',\n                 $target_package, $world.cur_lexpad(), $subset);\n         }\n         else {\n-            $subset := $world.create_subset($world.resolve_mo($/, 'subset'), $refinee, $refinement);\n+            $subset := $world.create_subset($how, $refinee, $refinement);\n         }\n \n         # Apply traits.","name":"","extension":"diff","url":"https://www.irccloud.com/pastebin/eFdO2yxP","modified":1649109536,"id":"eFdO2yxP","size":1454,"lines":31,"own_paste":false,"theme":"","date":1649109536}