diff.diff

diff --git a/src/Perl6/Metamodel/SubsetHOW.nqp b/src/Perl6/Metamodel/SubsetHOW.nqp
index aff9f6296..2e064cb89 100644
--- a/src/Perl6/Metamodel/SubsetHOW.nqp
+++ b/src/Perl6/Metamodel/SubsetHOW.nqp
@@ -23,7 +23,9 @@ class Perl6::Metamodel::SubsetHOW
         $!refinement := $refinement;
     }
 
-    method new_type(:$name = '<anon>', :$refinee!, :$refinement!) {
+    method new_type(:$refinee!, :$refinement!,
+      :$name = '<' ~ $refinee.HOW.name($refinee) ~ '-based anon subset>'
+    ) {
         my $metasubset := self.new(:refinee($refinee), :refinement($refinement));
         my $type := nqp::settypehll(nqp::newtype($metasubset, 'Uninstantiable'), 'perl6');
         $metasubset.set_name($type, $name);