diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
index 41315db9cc7..02cf9d92340 100644
--- a/src/Perl6/Grammar.nqp
+++ b/src/Perl6/Grammar.nqp
@@ -304,7 +304,7 @@ role STD {
         self
     }
     method typed_worry($type_str, *%opts) {
-        unless self.pragma('no-worries') {
+        if self.pragma('worries') {
             self.pragma('fatal')
               ?? self.typed_sorry($type_str, |%opts)
               !! @*WORRIES.push($*W.typed_exception(
@@ -489,6 +489,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
 
         # We could start out TOP with a fatalizing language in self, conceivably...
         my $*FATAL := self.pragma('fatal');  # also set if somebody calls 'use fatal' in mainline
+        self.set_pragma('worries', 1);
 
         # A cacheable false dynvar value.
         my $*WANTEDOUTERBLOCK := 0;