diff --git a/S02-types/array-shapes.t b/S02-types/array-shapes.t
index a25e8fc7af..917830839c 100644
--- a/S02-types/array-shapes.t
+++ b/S02-types/array-shapes.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 40;
+plan 42;
 
 # L<S09/Fixed-size arrays>
 
@@ -174,4 +174,11 @@ subtest '.Array on uninited shaped array' => {
     eval-lives-ok 'my @*a[3]', "Accept dynamic shaped arrays"
 }
 
+# https://github.com/rakudo/rakudo/issues/4205
+{
+    my @a[1] = 42;
+    lives-ok { (@a>>++).raku }, 'call .raku on result of hyper on shaped';
+    is-deeply @a[0], 43, 'did the hyper actually run';
+}
+
 # vim: expandtab shiftwidth=4