gistfile1.diff

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
index 92bc0e9..cd28b7f 100644
--- a/src/core/Exception.pm
+++ b/src/core/Exception.pm
@@ -99,7 +99,12 @@ do {
         if ($type == nqp::p6box_i(pir::const::CONTROL_OK)) {
             my Mu $err := pir::getstderr__P();
             my $msg = nqp::p6box_s(nqp::atkey($ex, 'message'));
-            $err.print: $msg ?? "$msg\n" !! "Warning\n";
+            unless $msg { $msg = 'Warning' }
+            $err.print: $msg;
+            $err.print: "here I segfault";
+            my $line = Backtrace.new($ex).nice(:oneline);
+            $err.print: $line;
+            $err.print: "\n";
             my $resume := nqp::atkey($ex, 'resume');
             if ($resume) {
                 $resume();