Blob Blame History Raw
diff --git a/Resource/Init/gs_dps.ps b/Resource/Init/gs_dps.ps
index 00c14d5..2a6f4f3 100644
--- a/Resource/Init/gs_dps.ps
+++ b/Resource/Init/gs_dps.ps
@@ -117,7 +117,7 @@
   .dicttomark readonly /localdicts exch put
                 % localdicts is now defined in userdict.
                 % Copy the definitions into systemdict.
-  localdicts { .forcedef } forall
+  localdicts { .forcedef } executeonly forall
                 % Set the user parameters.
   userparams readonly .setuserparams
                 % Establish the initial gstate(s).
diff --git a/Resource/Init/gs_fonts.ps b/Resource/Init/gs_fonts.ps
index 4807f81..01eca35 100644
--- a/Resource/Init/gs_fonts.ps
+++ b/Resource/Init/gs_fonts.ps
@@ -1136,7 +1136,7 @@ $error /SubstituteFont { } put
                       % Stack: fontdict
             } executeonly
            if pop % Stack: origfontname fontdirectory path
-         }
+         } executeonly
         if pop pop  % Stack: origfontname
 
                 % The font definitely did not load correctly.
diff --git a/Resource/Init/pdf_font.ps b/Resource/Init/pdf_font.ps
index f1d1728..46408f9 100644
--- a/Resource/Init/pdf_font.ps
+++ b/Resource/Init/pdf_font.ps
@@ -692,7 +692,7 @@ currentdict end readonly def
                 currentglobal exch dup gcheck setglobal
                 dup /GlyphNames2Unicode 100 dict dup 4 1 roll .forceput
                 3 2 roll setglobal
-              } if                                 % font-res font-dict encoding|null font-info g2u
+              } executeonly if                     % font-res font-dict encoding|null font-info g2u
               exch pop exch                        % font-res font-dict g2u encoding|null
               userdict /.lastToUnicode get         % font-res font-dict g2u Encoding|null CMap
               .convert_ToUnicode-into-g2u          % font-res font-dict