updated for version 7.0007v7.0007

1 files changed, 5 insertions, 2 deletions

diff --git a/runtime/print/prolog.ps b/runtime/print/prolog.ps
index 8587ef27e6..620856999f 100644
--- a/runtime/print/prolog.ps
+++ b/runtime/print/prolog.ps
@@ -5,13 +5,15 @@
 % Editing of this file is NOT RECOMMENDED.  You run a very good risk of causing
 % all PostScript printing from VIM failing if you do.  PostScript is not called
 % a write-only language for nothing!
+/packedarray where not{userdict begin/setpacking/pop load def/currentpacking
+false def end}{pop}ifelse/CP currentpacking def true setpacking
 /bd{bind def}bind def/ld{load def}bd/ed{exch def}bd/d/def ld
 /db{dict begin}bd/cde{currentdict end}bd
 /T true d/F false d
 /SO null d/sv{/SO save d}bd/re{SO restore}bd
 /L2 systemdict/languagelevel 2 copy known{get exec}{pop pop 1}ifelse 2 ge d
-/m{moveto}bd/s{show}bd/ms{m s}bd/g{setgray}bd/r{setrgbcolor}bd/sp{showpage}bd
-/gs{gsave}bd/gr{grestore}bd/cp{currentpoint}bd
+/m/moveto ld/s/show ld /ms{m s}bd /g/setgray ld/r/setrgbcolor ld/sp{showpage}bd
+/gs/gsave ld/gr/grestore ld/cp/currentpoint ld
 /ul{gs UW setlinewidth cp UO add 2 copy newpath m 3 1 roll add exch lineto
 stroke gr}bd
 /bg{gs r cp BO add 4 -2 roll rectfill gr}bd
@@ -36,6 +38,7 @@ put}{pop pop}ifelse}forall/Encoding findresource dup length 256 eq{NFD/Encoding
 ifelse 2 copy known{2 copy get dup maxlength dict copy[/questiondown/space]{2
 copy known{2 copy get 2 index/.notdef 3 -1 roll put pop exit}if pop}forall put
 }{pop pop}ifelse dup NFD/FontName 3 -1 roll put NFD definefont pop end}bd
+CP setpacking
 (\004)cvn{}bd
 % vim:ff=unix:
 %%EOF