diff --git a/ChangeLog b/ChangeLog
index 658a74c..9bc3b27 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2016-07-15  Fred Kiefer <FredKiefer@gmx.de>
+
+	* Source/gsc/GSStreamContext.m:
+	Output the Postscript font name.
+
 2016-06-16  Ivan Vucica <ivan@vucica.net>
 
         * ANNOUNCE:
diff --git a/Source/gsc/GSStreamContext.m b/Source/gsc/GSStreamContext.m
index eb1cc1e..b3e0be4 100644
--- a/Source/gsc/GSStreamContext.m
+++ b/Source/gsc/GSStreamContext.m
@@ -264,8 +264,14 @@ fpfloat(FILE *stream, float f)
 - (void) GSSetFont: (void *)fontref
 {
   const CGFloat *m = [(GSFontInfo *)fontref matrix];
-  fprintf(gstream, "/%s findfont ", 
-	  [[(GSFontInfo *)fontref fontName] cString]);
+  NSString *postscriptName;
+
+  postscriptName = [[(GSFontInfo *)fontref fontDescriptor] postscriptName];
+  if (nil == postscriptName)
+    {
+      postscriptName = [(GSFontInfo *)fontref fontName];
+    }
+  fprintf(gstream, "/%s findfont ", [postscriptName cString]);
   fprintf(gstream, "[");
   fpfloat(gstream, m[0]);
   fpfloat(gstream, m[1]);