diff --git a/src/core/List.pm b/src/core/List.pm
index 4248097cef4..3640e1551d2 100644
--- a/src/core/List.pm
+++ b/src/core/List.pm
@@ -702,4 +702,6 @@ sub splice(@arr, $offset = 0, $size?, *@values) {
     @arr.splice($offset, $size, @values)
 }
 
+multi sub infix:<cmp>(@a, @b) { (@a Zcmp @b).first(&prefix:<?>) || @a <=> @b }
+
 # vim: ft=perl6 expandtab sw=4