diff --git a/src/core/operators.pm b/src/core/operators.pm
index 7bda6dbab05..f4245698b9a 100644
--- a/src/core/operators.pm
+++ b/src/core/operators.pm
@@ -132,3 +132,8 @@ our multi infix:<~>($a, $b) {
     pir::assign__vPS($result, pir::concat__SSS(~$a, ~$b));
     $result
 }
+
+# XXX Wants to be a macro when we have them.
+our sub WHAT(\$x) {
+    $x.WHAT
+}