A routine will always need some kind of dispatcher slot, since it may…

… be a wrapper (in fact, we probably need to generalize this to block level).

src/Perl6/Actions.pm

@@ -1407,12 +1407,9 @@ class Perl6::Actions is HLL::Actions {
         my $signature := create_signature_object(@params, $block);
         add_signature_binding_code($block, $signature, @params);
 
-        # If it's a multi, needs a slot that can hold an (unvivified)
-        # dispatcher.
-        if $*MULTINESS eq 'multi' {
-            $*ST.install_lexical_symbol($block, '$*DISPATCHER', $*ST.find_symbol(['MultiDispatcher']));
-            $block[0].unshift(PAST::Op.new(:pirop('perl6_take_dispatcher v')));
-        }
+        # Needs a slot that can hold a (potentially unvivified) dispatcher.
+        $*ST.install_lexical_symbol($block, '$*DISPATCHER', $*ST.find_symbol(['MultiDispatcher']));
+        $block[0].unshift(PAST::Op.new(:pirop('perl6_take_dispatcher v')));
 
         # Create code object.
         if $<deflongname> {