Fixed.
(with x (send a) (send b)) => (let ((v x)) (send v a) (send v b)).
Rename with to to.