Index: gs/lib/pdf_draw.ps
===================================================================
--- gs/lib/pdf_draw.ps	(revision 6843)
+++ gs/lib/pdf_draw.ps	(working copy)
@@ -1006,7 +1006,7 @@
    { ColorSpace setgcolorspace currentdict end setfillblend { image } }
   ifelse
   .systemvar stopped {
-    pop
+    dup type /dicttype eq { pop } if % Sometimes image fails to restore the stack
     $error /errorname get dup /ioerror eq {
       pop (\n   **** Warning: File has insufficient data for an image.\n)
       pdfformaterror