How to solve this system of equations?

I am trying to  solve the system of equations
with(RealDomain);
solve(x^2+y^2+z^2-4*x+6*y-2*z-11 = 0, 2*x+2*y-z = -18], [x, y, z]);

I didn't get the result x = - 4/3, y = -19/3, z = 8/3.

How can I get the solution?

WithMathematica, I tried 
Solve[{x^2 + y^2 + z^2 - 4*x + 6*y - 2*z - 11 == 0, 
  2*x + 2*y - z == -18}, {x, y, z}, Reals]

And got the correct solution.