diff.patch

diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index a93fb954f..5ce65cd33 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -6558,6 +6558,11 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 # as its last argument.
                 $_.push(QAST::Op.new( :op('call'), $result ));
             }
+            elsif $_.isa(QAST::Op) && $_.op eq 'ifnull' && $_[0].isa(QAST::Var) && nqp::substr($_[0].name, 0, 1) eq '&' {
+                # It's a `==> &sub`. Rework into a call and stick a call to
+                # the current supplier in as its last argument.
+                $_ := QAST::Op.new( :op('call'), :name($_[0].name), QAST::Op.new( :op('call'),  $result ));
+            }
             elsif $_ ~~ QAST::Var {
                 # It's a variable. We need code that gets the results, pushes
                 # them onto the variable and then returns them (since this