Now fixed in f351f60:
$ cat x
class A {
has $.a is rw;
method add(A $b) { $.a ~ $b.a }
}
multi sub infix:+(A $a, A $b) { $a.add($b) };
my A $a .= new(a='foo');
my A $b .= new(a='bar');
say $a.a ~ $b.a;
say $a + $b;
$ ./perl6 x
foobar
foobar
$
Assigning to moritz++ so that we can get
# New Ticket Created by Hanno Hecker
# Please include the string: [perl #68664]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=68664
$ ./perl6 -e 'class A {
has $.a is rw;
method add (A $b) { $.a ~ $b.a }
}