Arthur,
This will give you the step-by-step from Alpha as a graphic:
jnk = WolframAlpha["x^2==x+1",IncludePods->{"Solution"},PodStates->{"Solution__Step-by-step solution"}]
or you can get the XML and parse it:
jnk = WolframAlpha["x^2==x+1","XML",IncludePods->{"Solution"},PodStates->{"Solution__Step-by-step solution"}]
I figured this out by doing this:
WolframAlpha["x^2==x+1","PodStates"]
Which gave me:
{Solution->{Solution..Approximate forms,Solution..Step-by-step solution}}
(note the two dots (..) are actually two underscores that don't appear properly on the forum)
So I had to Include the Solution pod and ask for the step-by-step PodState
I hope this helps