diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index 9e44a7b..fc6e9c1 100644
--- a/src/Perl6/Actions.pm
+++ b/src/Perl6/Actions.pm
@@ -3541,7 +3541,8 @@ INIT {
     %not_curried{'WHERE'}         := 2;
 }
 sub whatever_curry($/, $past, $upto_arity) {
-    if $past.isa(PAST::Op) && %not_curried{$past.name} != 2 && $past<pasttype> ne 'call' {
+    if $past.isa(PAST::Op) && %not_curried{$past.name} != 2
+                           && ($past<pasttype> ne 'call' || pir::index($past.name, '&infix:') == 0) {
         if ($upto_arity >= 1 && (($past[0].returns eq 'Whatever' && !%not_curried{$past.name})
                                  || $past[0].returns eq 'WhateverCode'))
         || ($upto_arity == 2 && (($past[1].returns eq 'Whatever' && !%not_curried{$past.name})