Question: How to calculate this Groebner basis for this picture

when calculate the intersection of I2 and J2, i exactly follow this picture
https://skydrive.live.com/redir?resid=E0ED7271C68BE47C!311

however, it is G list which is not the stated in this picture

restart;
with(Groebner):
I2 := {x^2+y^3-1, x-y*x+3};
J2 := {y*x^2-1};
G1 := Basis({expand(w*I2[1]),expand(w*I2[2]), expand((1-w)*J2[1])}, 'tord', deglex(x,y));
G2 := Basis({expand(w*I2[1]),expand(w*I2[2]), expand((1-w)*J2[1])}, 'tord', deglex(w,x,y));
 
i understand the picture final step is remove polynomial which contain w, 
however the Groebner list all contains w and not the same stated in the book
Please Wait...