diff --git a/preview.el.in b/preview.el.in
index 30bf45bf..11ff3299 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -353,7 +353,7 @@ LIST consists of TeX dimensions in sp (1/65536 TeX point)."
   :group 'preview-gs
   :type 'string)
 
-(defcustom preview-gs-options '("-q" "-dDELAYSAFER" "-dNOPAUSE"
+(defcustom preview-gs-options '("-q" "-dDELAYBIND" "-dDELAYSAFER" "-dNOPAUSE"
 				"-DNOPLATFONTS" "-dPrinted"
 				"-dTextAlphaBits=4"
 				"-dGraphicsAlphaBits=4")
@@ -749,11 +749,20 @@ to Ghostscript floats."
   ;; anything readable turned up, anyway.
   (let ((fg (aref colors 1)))
     (if fg
+;; 	(concat
+;; 	 "/GS_PDF_ProcSet GS_PDF_ProcSet dup maxlength dict copy dup begin\
+;; /graphicsbeginpage{//graphicsbeginpage exec "
+;; 	 (mapconcat #'preview-gs-color-value fg " ")
+;; 	 " 3 copy rg RG}bind store end readonly store "))))
 	(concat
-	 "/GS_PDF_ProcSet GS_PDF_ProcSet dup maxlength dict copy dup begin\
-/graphicsbeginpage{//graphicsbeginpage exec "
+	 "/initgraphics {
+  //initgraphics
+  /RG where {
+    pop "
 	 (mapconcat #'preview-gs-color-value fg " ")
-	 " 3 copy rg RG}bind store end readonly store "))))
+	 " 3 copy rg RG
+  } if
+} bind def "))))
 
 (defun preview-gs-color-string (colors)
   "Return a string setting up colors"
@@ -912,7 +921,8 @@ The usual PROCESS and COMMAND arguments for
 	       (setq TeX-sentinel-function nil)
 	       (setq preview-gs-init-string
 		     (concat preview-gs-init-string
-			     (preview-pdf-color-string preview-colors)))
+			     (preview-pdf-color-string preview-colors)
+			     ".bindnow"))
 	       (preview-prepare-fast-conversion)
 	       (when gsstart
 		 (if preview-gs-queue