diff --git a/S04-exceptions/fail.t b/S04-exceptions/fail.t
index 5b05ef0744..6cf34521e4 100644
--- a/S04-exceptions/fail.t
+++ b/S04-exceptions/fail.t
@@ -3,7 +3,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 36;
+plan 37;
 
 # L<S04/Exceptions/The fail function>
 
@@ -177,4 +177,10 @@ subtest 'Failure.self' => {
 is_run ｢Failure.new(Exception.new); Nil｣, {:out(""), :err(*), :1status},
     'Failure.new(Exception.new) does not segfault';
 
+# RT #131496
+without Failure.new {
+    is-deeply .perl.EVAL.handled, True,
+      'Failure:D.perl.EVAL roundtrips `handled` flag';
+}
+
 # vim: ft=perl6