1 files changed, 17 insertions, 5 deletions
diff --git a/Master/tlpkg/tlgs/lib/gs_init.ps b/Master/tlpkg/tlgs/lib/gs_init.ps
index 8e04aaf4d95..7a80d35ed51 100644
--- a/Master/tlpkg/tlgs/lib/gs_init.ps
+++ b/Master/tlpkg/tlgs/lib/gs_init.ps
@@ -13,7 +13,7 @@
 % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
 % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
 
-% $Id: gs_init.ps 8054 2007-06-17 00:01:02Z alexcher $
+% $Id: gs_init.ps 8401 2007-11-21 22:42:03Z giles $
 % Initialization file for the interpreter.
 % When this is run, systemdict is still writable.
 
@@ -27,9 +27,12 @@
 % initialization files, have names that begin with %, e.g.,
 % (%Type1BuildChar) cvn.
 
-% Check the interpreter revision.  NOTE: the interpreter code requires
-% that the first non-comment token in this file be an integer.
-860
+% Interpreter library version number
+% NOTE: the interpreter code requires that the first non-comment token
+% in this file be an integer, and that it match the compiled-in version!
+862
+
+% Check the interpreter revision.
 dup revision ne
  { (gs: Interpreter revision \() print revision 10 string cvs print
    (\) does not match gs_init.ps revision \() print 10 string cvs print
@@ -1281,7 +1284,7 @@ put		% errordict /rangecheck
        }
       if
     }
-    { 0 .getdevice .devicename
+    { .getdefaultdevice .devicename
     }
    ifelse
  }
@@ -1516,6 +1519,14 @@ setpacking
   .setdefaultbgucr
 } bind def
 
+% Rendering intent mapping for setcolorrendering1 and PDF interpreter
+/.renderingintentdict mark
+  /Perceptual 0
+  /RelativeColorimetric 1
+  /Saturation 2
+  /AbsoluteColorimetric 3
+.dicttomark readonly def
+
 % Load basic color support
 %% Replace 1 (gs_cspace.ps)
 (gs_cspace.ps) runlibfile
@@ -2147,6 +2158,7 @@ currentdict /.imagemasktypes .undef
 currentdict /.patterntypes .undef
 currentdict /.shadingtypes .undef
 currentdict /.wheredict .undef
+currentdict /.renderingintentdict .undef
 end
 
 % Clean up VM, and enable GC.