%!PS-Adobe-2.0
errordict begin
   /handleerror {
   systemdict begin
     initgraphics
     /Courier findfont 12 scalefont setfont
     72 720 moveto
     (Postscript problem: ) show
     $error /errorname get
     =string cvs show
     72 700 moveto
     (Command: ) show
     $error /command get
     =string cvs show
     systemdict /showpage get exec
     end  %  systemdict
   } def
end