kc3-lang/freetype

diff --git a/ChangeLog b/ChangeLog
index 2d53417..a4ffa02 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2017-09-25  Ewald Hew  <ewaldhew@gmail.com>
 
+	[psaux] Extend Adobe interpreter (setcurrentpoint).
+
+	* src/psaux/psintrp.c (cf2_interpT2CharString)
+	<cf2_escSETCURRENTPT>: Fix stack access.
+
+2017-09-25  Ewald Hew  <ewaldhew@gmail.com>
+
 	[psaux] Extend Adobe interpreter (`closepath').
 
 	* src/psaux/psintrp.c (cf2_interpT2CharString) <c2f_cmdCLOSEPATH>:
diff --git a/src/psaux/psintrp.c b/src/psaux/psintrp.c
index 7132ae8..5e01c0c 100644
--- a/src/psaux/psintrp.c
+++ b/src/psaux/psintrp.c
@@ -1621,8 +1621,9 @@
                       ...
 #endif
 
-                    x = top[0];
-                    y = top[1];
+                    curY = cf2_stack_popFixed( opStack );
+                    curX = cf2_stack_popFixed( opStack );
+
                     decoder->flex_state = 0;
                   }
                   break;