Fix no worries pragma

Looks like it never worked, despite the machinery being there, as
it expected a "no-worries" pragma to be set to a true value.

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;