How to get only real solutions?



"
(%i5) solve( exp(-10000*t/50175) = 1/2);

which leads to 400 solutions and Wxmaxima even refuses to show them.
to_poly_solve gives the solution in a nicer way

%union([t = (4014*%i*%pi*%z6+2007*log(2))/400])

Is there a way to restrict solve or to_poly_solve to only real solutions?
"

I don't know if this always works but I noticed that the last solution 
returned by solve is usually the real solution, assuming that there are both 
real and complex solutions mixed.  So it would be worth trying

last(solve(expr,t));

I can't guarantee it always works, but it is true often enough to be useful 
to check the last one.  If there is more than one real solution then I have 
nothing to offer on how to find the others.

Rich