Problem exporting graphics in EPS format

I’m having a problem exporting EPS files from Mathematica 9. The following code produces an EPS file which looks fine when opened in Ghostview. CorelDraw X6 refuses to import it (“There was a problem reading file …”). It causes Adobe Photoshop and Adobe Illustrator to crash.

tube = {Tube[{{0, 0, 0}, {1, 1, 1}}, 0.2]};
Export[NotebookDirectory[] <> “eps_test.eps”, Graphics3D[{tube}]]

Any suggestions would be gratefully received.

Regards Peter

Try exporting to PDF instead? When I do that I can open the file in Photoshop (Well, Photoshop Elements). It rasterizes the image first.